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1. MÉTHODES PRATIQUES 


DU MÊME AUTEUR AUX ÉDITIONS DU PSI : 


Le basic de A à Z 

Le basic et ses fichiers - Tomes 1 et 2 
Basic pour tous 

Oric pour tous 

52 programmes, Oric pour tous 

Le cahier du Basic sur Oric 

L'Apple et ses fichiers - Tome 1 

Apple pour tous 

36 programmes, Apple pour tous 
Commodore 64 pour tous (avec Gérard Foucault) 
Commodore 64, Méthodes pratiques 
MOS5 et TO7/70 pour tous 

MOS et TO7/70, Méthodes pratiques 
Spectrum pour tous (avec Marcel Henrot) 
BASIC MSX, Méthodes pratiques 


PRÉSENTATION 


Destiné à un public déjà initié à la micro-informatique, le 
“BASIC AMSTRAD : Méthodes Pratiques” répondra à votre 
attente de perfectionnement. Jacques Boisgontier, auteur 
du best-seller “Le Basic et ses fichiers”, y adopte une dé- 
marche originale en présentant les instructions du Basic 
AMSTRAD au fur et à mesure de vos besoins. 


Si le “BASIC AMSTRAD” ne s'adresse pas aux débutants, 
il comprend cependant une prise en main suivie des ins- 
tructions de base, donnant ainsi les notions nécessaires à 
la compréhension du texte. 


Loin d’être une liste sèche d'instructions, cet ouvrage pro- 
pose quantité de programmes-exemples dans lesquels 
vous découvrirez de nombreuses astuces utiles. 


Cet approfondissement du langage Basic AMSTRAD est 
complété par un chapitre “programmes” où, du graphisme 
à la gestion, vous pourrez mettre en application toutes vos 
connaissances, et créer de très belles pages-écran. À vous 
de jouer ! 


SOMMAIRE 


PRISE EN MAIN 
Le clavier 
L'écriture de programmes 
L'éditeur de programmes 


INSTRUCTIONS DE BASE 
Les commandes Basic 
Les variables 
Les expressions et opérateurs 
L'écran 
L'entrée au clavier 
Les tests 
La boucle automatique 


TRAITEMENT DES DONNÉES 
Les données 
Les tables 
Les chaînes de caractères 
Les éditions 


DÉCOUPAGE DES PROGRAMMES 
Les sous-programmes 
Les branchements multidirections 
LE TRAITEMENT D'ERREURS 
LA MISE AU POINT DES PROGRAMMES 


LES FONCTIONS 
Les fonctions arithmétiques 


ACCÈS À LA MÉMOIRE ET ENTRÉES-SORTIES DIRECTES 


L'accès à la mémoire 


LES NOMBRES ALÉATOIRES 


11 
12 


15 
15 
20 
22 
25 
32 
41 
43 


47 
47 
51 
56 
65 


71 
71 
74 
75 
77 


81 
81 


85 
85 


89 


8 | BASIC AMSTRAD 


GRAPHISMES ET SONS 91 
Le graphique haute résolution 91 
La redéfinition des caractères 103 
Les sons 109 

L'HORLOGE 117 

LES FICHIERS SÉQUENTIELS 121 

LES PROGRAMMES 125 

A - GRAPHISMES 126 
Tracé d'un dessin par segments de droites 126 
Dessinateur 127 
Tracé d'un dessin défini en DATA 130 
Géographie 131 
Tracé d'un dessin en relatif 133 
Rotation d'une figure 134 
Squash 135 
Tracé de courbe 136 
Histogramme 138 
Histogramme 3D 139 

B - GESTION 140 
Saisie d'écran 140 
Fichier d'adresses 141 
Gestion de fichier automatique 146 
Bibliothèque 152 

LE CPC 664 157 
Introduction 157 
Commandes accessibles sous Basic 6128 et 664 159 
Commandes accessibles sous CP/M 2.2 160 

LE CPC 6128 167 
Introduction 167 
Commandes accessibles sous Basic 6128 et 664 171 
Utilisation du second bloc mémoire 175 
Commandes accessibles sous CP/Plus 179 
Création d'un fichier FROFILE.SUB 185 
CP/M 2.2 185 
Instructions Basic Amstrad CPC 6128 et 664 186 

ANNEXES 
1. Codes ASCII 195 
2. Table des notes 197 
3. Messages d'erreur 199 


4. Index 203 


PRISE EN MAIN | 


LE CLAVIER 


Si vous possédez un CPC 664, consultez le chapitre 14 page 157. Pour un CPC 6128 
consultez le chapitre 15 page 167. 


A la mise sous tension, apparaît le message : 
Amstrad 64K MicrocomPuker  Cw15 
$1984 Amstrad Consumer Electronics Plc 
and Locomotive Softuare Ltd. 


BASIC 1.0 








L 
: | | | | | ( ENTER 
s| | 


SHIFT | SHIFT | 
ESPACE | crRL 


Voyons le rôle des touches essentielles : 





nE ol 
Il 

















Si vous frappez “PRINT 4+5” (afficher 4+5), il ne se passe rien. Pour 
obtenir un résultat, il faut “valider” la ligne frappée avec la touche ci- 
contre que nous appelons [ENTER! 
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A la mise sous tension, le clavier est en minuscules. Pour le positionner 
CAPS en majuscules, appuyer sur 
Une seconde pression sur [CAPS|fait passer en minuscules. 


Cette touche, en bas du clavier, déplace le curseur d'une position à 
ESPACE droite, sans écrire, permettant ainsi d'introduire des espaces dans le 
texte frappé. 


La touche|SHIFT|permet d'accéder aux caractères du haut des touches 
SHIFT à deux caractères. 


— |l faut d'abord appuyer sur cette touche. 
— Puis maintenir cette touche tout en appuyant sur le caractère désiré. 


Exemple : Pour obtenir le caractère “guillemet”, appuyer sur les deux touches ci-des- 
sous simultanément. 





Essayez de frapper : PRINT “BONJOUR” 








DEL La touche|DELJefface le caractère à gauche du curseur. 
CLR Efface le caractère sous le curseur. 
: En appuyant sur cette touche une fois, vous suspendez l'exécution d'un 
ESC programme qui se poursuit en appuyant sur une touche quelconque. 
L———— En appuyant deux fois sur , vous stoppez l'exécution d'un pro- 
gramme. 


Si le programme est en attente sur une instruction[INPUT] la frappe de 
une seule fois interrompt le programme. 


Le Cette touche permet d'accéder aux caractères dont les codes sont 
CTRL compris entre 1 et 31. 


Pour CTRL A, vous obtenez “F ”. 
Pour CTRLB, vous obtenez “1”. 


Ces caractères ne sont pas ceux obtenus en frappant PRINT CHRS(X). 


CTRLISHIFTIESC Initialise le système (comme une mise sous tension). || faut appuyer 
| simultanément sur les trois touches. 


Hz En appuyant sur|CTRL| et [ENTER] (du pavé numérique) le message 
CTRL|ENTER| “RUN” apparaît. Ceci permet de charger et d'exécuter un programme 
sur cassette. 
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L’ÉCRITURE DE PROGRAMMES 


POUR ÉCRIRE UN PROGRAMME 


Il suffit de frapper les instructions en leur affectant un n° de ligne. 
CEcsnenaons = 9 Esp geo, 
Demande 


BOHJOUR 

BONJOUR 

BOHJOUR Appuyez sur ESC 2 fois 

break În 20 
INSERTION D’UNE LIGNE 


Pour insérer une ligne entre 10 et 20, on choisit un n° de ligne intermédiaire (15 par 
exemple). 





15 Print “HONSIEUR "> 
list, 
16 PRIHT "BONJOUR" 


15 PRIMT "MONSIEUR" 
26 GÜTO 18 


SUPPRESSION D’UNE LIGNE 


Il suffit de frapper le numéro de ligne suivi del ENTER. 


Ep 

Ÿ 

à disparu 19 PRIHT "BONJOUR" 
Z6 GOTO 15 


Q Chaque ligne ne doit pas excéder 255 caractères. 
0 Tout ce qui suit REM ou ‘ sur une ligne de programme est du commentaire. 


“6,9 


0 Plusieurs instructions sur une même ligne doivent être séparées par “:”. 
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L'ÉDITEUR DE PROGRAMME 


Il existe deux modes pour modifier une ligne de programme déjà validée par| ENTER 


EDIT n° ligne 


C'est le mode le plus simple à utiliser. Pour remplacer le caractère “M” par “N” dans 
la ligne 10, il faut procéder ainsi : 


10 PRINT "BOMJOUR" 


0 Frapper EDIT 10 
La ligne 10 est alors affichée avec le curseur au début de la ligne. 


10 PRINT "BOMJOUR" 


0 Positionner le curseur après le caractère à supprimer avec la flèche — puis appuyer 
sur la touche DEL. Le caractère “M” disparaît. 
Vous pouvez également placer le curseur sur le caractère à supprimer et utiliser la 
touche CLR pour supprimer le caractère. 


0 Frapper le caractère à insérer (N). 
0 Valider la ligne modifiée avec la touche|ENTER 


La flèche gauche < permet de déplacer le curseur à gauche et ainsi d'effectuer d'autres 
corrections sur la même ligne. 


Pour annuler une modification en cours, appuyer sur ESC. 
Pour modifier une ligne en cours de frappe, les règles sont les mêmes. 


Lorsqu'une erreur de syntaxe est détectée à l'exécution, BASIC affiche la ligne erronée 
qui peut ainsi être modifiée en mode EDIT. 


MODIFICATION PAR RECOPIE 


Ce mode est plus délicat à utiliser. || permet de recopier une ou plusieurs parties d'une 
ligne avec la touche[COPY de “sauter” les caractères à supprimer en appuyant sur 
“SHIFT —”. 


Pour modifier la ligne : 10 PRINT “BOMJOUR” 


0 Positionner le curseur sur la ligne 10 en appuyant sur[SHIFTlet “ ? ” simultanément. 
Il apparaît alors deux curseurs : le curseur principal et le curseur de copie. 
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curseur HD PRINT “BOMJOUR" 
de copie 
E curseur 
principal 


Q Recopier le début de la ligne à modifier avec la touche|COPY]|jusqu'à la lettre “O”. 
“10 PRINT “BO” est alors affiché à la suite du curseur principal. 


19 PRINT “"BOMJOUR" 
ï ligne 
10 PRINT "HO 


“Sauter” la lettre à supprimer en appuyant sur |SHIFT et] simultanément. 
Frapper la nouvelle lettre (N) qui est alors ajoutée à la ligne recopiée. 





Recopier le reste de la ligne avec la touche[COPY] 
Valider avec|ENTER, 


La ligne en cours de recopie peut être modifiée comme dans le mode EDIT. 


EE ©: ) 0 TO 


Une modification en cours peut être annulée par|[ESC 
Rien ne vous empêche de composer une ligne à partir de plusieurs lignes. 


Le mode d'édition par recopie peut également être utilisé pour modifier une commande 
mal frappée. 


Pour sauvegarder un programme sur cassette ou disquette, utiliser la commande SAVE 
“nom-programme” (cf. chapitre “Commandes” page 18). 


Exemple : SAVE “ESSAI”. 
La commande “LOAD” permet de lire un programme sur cassette. 


Exemple : LOAD “ESSA/”. 
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LES COMMANDES BASIC 


m AUTO m CONT us NEW m SPEED WRITE 
um CAT # DELETE # RENUM = TRON 

æ CLEAR # LIST # RUN = TROFF 

# CHAIN # LOAD # SAVE = WIDTH 

# CHAIN MERGE 5 MERGE 


Ces commandes sont acceptées après l'affichage de READY. Elles peuvent aussi être 
écrites comme instructions dans un programme. 


AUTO n° ligne départ, incrément 


Génère un numéro de ligne à chaque fois que vous appuyez sur ENTER. On sort du 
mode “AUTO” en appuyant sur “ESC”. 


AUTO numerote de 14 en 19 3 Partir de 14 
AUTO 199 * numerote a Partir de 165 
AUTO 159.35 * numerote de 5 en 5 


Si un numéro de ligne existe déjà, le caractère “*” est affiché. 


CAT 


Donne la liste des programmes et fichiers sur cassette ainsi que leur type. 
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$: Programme BASIC 
% : Programme protégé 
*: Programme ou fichier ASCII 
& : Programme ou fichier binaire 


L'affichage de “OK” signifie que les fichiers ou programmes ont bien été lus. 


CLEAR 


Efface les variables et tableaux. 


CHAIN nom programme, n° ligne 


Charge le programme spécifié (normal ou ASCII) et provoque son exécution. L'ancien 
programme est supprimé. 


CHAIN "PROG" * charge PROG et lance son execution 
CHAIN "PROG",109 ’ lance l'execution en 199 


CHAIN MERGE nom programme,n° ligne, DELETE ligne1-ligne2 


Concatène le programme spécifié (normal ou ASCII) et provoque son exécution au 
numéro de ligne spécifié. Les variables ne sont pas remises à zéro. 


ON ERROR est annulé, le pointeur de DATA est positionné en début de DATA. DE- 
FINT, DEFREAL et DEFSTR sont annulés. 


CHAIN MERGE "FROG",199 
CHAIH MERGE "FRÛG",195,CELETE 29 


ONE + | 
Continue l'exécution d'un programme après arrêt de celui-ci par STOP ou ESC (2 fois). 


N'est pas accepté si le programme a été modifié (dans ce cas, utiliser GOTO XX). 


DELETE n° ligne début - n° ligne fin 





Supprime les lignes de programme entre les limites indiquées. 


DELETE * efface toutezs les liÿnes 
DELETE 19-39 " efface les lignes 19 3 39 
DELETE -39 * efface les liSnes jusqu'a 3ÿ 
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LIST n° ligne départ - n° ligne fin 


Liste les lignes de programme entre les limites indiquées. 


LIST * liste tout le Prosramme 
LIST 19-39 * liste de 19 a 39 

LIST -29 * liste jusqua39 

LIST #3 * liste sur l’imPrimante 


LIST 19-39,#3 


LOAD nom-fichier, adresse 


Charge le programme spécifié (normal ou ASCII). L'ancien programme en mémoire 
est effacé. 


LOAD "" * charge le Premier Proïramme où fichier binaire 
LOC "FROG" “ char3e le Proïramme FROG. 


MERGE nom-programme 





Concatène le programme spécifié (sauvegardé en ASCII par SAVE “PROG",A) au 
programme en mémoire centrale. Les lignes de programmes dont les numéros sont 
identiques aux numéros des lignes déjà en mémoire remplacent celles-ci. 


Cette commande est généralement utilisée pour ajouter des sous-programmes à un 
programme. 


Nous avons observé qu'un programme BASIC normal est également concaténé. 


NEW 





Efface le programme en mémoire centrale. 


RENUM nouveau numéro, première ligne, incrément 
“nouveau numéro” qui est par défaut égal à 10 spécifie le premier numéro de la ligne. 


“première ligne” spécifie la ligne où doit recommencer la renumérotation. C'est la 
première ligne par défaut. 


“incrément” représente l’incrément à utiliser pour la renumérotation. || est égal à 10 
par défaut. 


REHUM * renumerote de 19 en 14 
FRENUNM 199 * la Premiere li9ne devient 194 
FENUM 199,29,5 * a Partir de 29 de 5 en 5 
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RUN 


Exécute le programme en mémoire au premier numéro de ligne. Toutes les variables 
sont remises à zéro. Les fichiers sont clos. 


RUN n° ligne 
Exécute le programme à partir de la ligne spécifiée. 


19 RUH 144 lance l'execution en 144 


RUN nom-programme 


Charge un programme et lance l'exécution. 


oaramme PROG 


EUH "FRÛG" * charge et © 
rae remier Programme 


RUH !"" * cha 


SAVE nom-programme, type 


Sauvegarde un programme sur cassette. LOAD permet de relire le programme. Si le 
type est égal à “P”, le programme est protégé ; il ne peut être listé. Si le type est égal 
à “A”, le programme est sauvegardé en ASCII, c'est-à-dire sous forme compactée. || 
peut alors être ajouté à un autre programme avec la commande MERGE. Le program- 
me peut également être lu comme un fichier séquentiel. 


SAVE "PROG" * sauvegarde le Proïramme sous le nom de PROG 
SAYE "" * sauvegarde 53n3 donner de nom 

SAYE "PROG", * sauvegarde sous forme Prote3ee 

SAYE "PRG". A * sauvegarde en ASCII cf MERGE et CHAIN MERGE ) 


SAVE nom-fichier,B,adresse départ,longueur, adresse-exécution 


Sauvegarde une partie de la mémoire. 


SAYE "CES",B,4C996, 84964 sauvegarde l'ecran 9raPhiîue 


SPEED WRITE vitesse 





Détermine la vitesse de sauvegarde sur cassette (0 ou 1). La vitesse de sauvegarde 
par défaut est O0 (1000 bauds). 


SPEED WRITE 1 spécifie une vitesse de sauvegarde de 2000 bauds. 


TRON 





Permet de visualiser les numéros des instructions exécutées (cf. chapitre “La mise au 
point des programmes”). 
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RO 


Annule TRON'. 


WIDTH largeur édition 
Détermine la largeur d'édition à l'imprimante. 
WIDTH 70 


Rappelons que PRINT FRE(0) donne l'espace libre en mémoire centrale. PRINT 
FRE(" ”) réorganise la mémoire. 
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LES VARIABLES 


NOMS 


Les noms de variables s'écrivent avec plusieurs lettres ou chiffres mais le premier 
caractère doit être une lettre. 


Un nom de variable ne doit pas être un mot-clé du BASIC. 


TYPES 


Il y a trois types de variables : les variables entières réelles, et les chaînes de carac- 
tères. Le type est précisé par un caractère à droite de la variable (%,!,$). 


Exemple : X% = 5 (variable du type entier). 
Par défaut, lorsque le type n'est pas précisé, les variables sont réelles. 


Caractère de 


Type déclaration Exemple 

Entières % X% = 123: JOURSY% = 365 
(nombres entiers compris entre 

— 32768 et + 32767) 

Réelles ! X! = 123.456 

(6 chiffres significatifs) 

Chaînes de caractères $ NOMS$= « DUPONT » 


de longueur variable 
(255 caractères au maximum) 


Les variables de même nom avec des types différents sont considérées comme des 
variables distinctes (A et A$ par exemple). 


CLEAR et RUN initialisent les variables avec des valeurs nulles (0 pour les variables 
numériques, chaîne vide pour les variables chaînes). 


Les variables entières sont représentées sur 2 octets et les variables réelles sur 5 octets. 


Au-delà de 9 chiffres, les valeurs des variables réelles sont affichées sous forme man- 
tisse-exposant. 


CONSTANTES HEXADÉCIMALES ET BINAIRES 


Des constantes hexadécimales sont spécifiées par “&h” ou “&” devant le nombre. Des 
constantes binaires sont définies par “&x” devant le nombre. 


10 PRINT &A1,8&X1101 


RUN 
161 13 
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Des constantes hexadécimales définies dans des DATA pourront être lues ainsi : 


19 DATA &HFF 
29 READ x 
38 PRIHT x 


2535 


DEFINT - DEFREAL - DEFSTR 
(définition globale de type de variables) 


DEFtype lettres Permet de définir globalement le type de toutes les variables 
dont les noms commencent par les lettres spécifiées, plutôt que 
de déclarer explicitement le type de chaque variable par un 
caractère (%, $, !). 


On peut cependant déclarer explicitement par un caractère (!, 
%, $) un type de variable qui aurait été défini par DEFtype. La 
déclaration explicite est prioritaire. 


DEFREAL J Toutes les variables commençant par J et non déclarées expli- 
citement par un caractère (!, %, $) sont des variables réelles. 
DEFSTR A-C Toutes les variables commençant par une lettre À, B ou C sont 
du type chaîne. 
DEFINT I-N, R-T Spécifie deux domaines de variables entières. 
19 DEFIH x 
29 a=2.1 
38 a31=2.3 ? declaration exPlicite Prioritaire 


49 PRINT a,a3! 


2 2.3 


CONVERSION DE TYPES DE VARIABLES 


Le stockage d'une valeur se fait suivant le type de la variable. 


15 a%=123.45 
24 FRINT 4% 


12: 


[e 
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LES EXPRESSIONS ET OPÉRATEURS 


Une expression peut être simplement une constante du type numérique ou chaîne, une 
variable ou une combinaison de constantes et de variables liées par des opérateurs. 


Exemple : (X — 2) + 4/6 


Les opérateurs effectuent des opérations sur des valeurs. IIs sont classés en trois 
catégories : 


1/Arithmétiques 
2/Relationnels 
3/Logiques 


OPÉRATEURS ARITHMÉTIQUES 


An 


Exponentiation 

*/ Multiplication Division 
+ — Addition Soustraction 
MOD Modulo 

\ Division entière 


L'évaluation des expressions se fait avec l'ordre des priorités des opérateurs défini ci- 
dessus. 


5 + 10/5 est égal à 7 


Des parenthèses permettent de changer cet ordre. Ce sont d’abord les expressions 
entre parenthèses qui sont évaluées. 


(5 + 10)/5 est égal à 3 
X MOD Y : L'opérateur MOD donne le reste de la division de X par Y. 
PRINT 100 MOD 3 - 1 


X\Y : Donne la partie entière d'une division. X et Y doivent être compris entre — 32768 
et + 32767. 


100\3 — 33 


OPÉRATEURS RELATIONNELS 


Ils comparent 2 valeurs. Le résultat est soit égal à — 1 (condition vraie), soit égal à O 
(condition fausse). Ceci permet de prendre une décision (par IF... THEN... ELSE). 


1001F X<0 THEN PRINT « NOMBRE NEGATIF » ELSE PRINT « NOMBRE POSITIF » 
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Egalité 

Inférieur 
Supérieur 
Différent 
Inférieur ou Egal 


AAVAI 
IV 


OPÉRATEURS LOGIQUES : AND-OR-XOR 

Ils testent des relations multiples. Le résultat de l'opération logique est soit faux (égal 
à O) soit vrai (égal à — 1) et permet ainsi de prendre une décision par IF... THEN... 
ELSE. 


100 IF A<O AND B<0O THEN PRINT « A et B SONT NEGATIFS » 


R1 OR R2 


























Les priorités d'évaluation des expressions comportant des opérateurs arithmétiques, 
relationnels et logiques sont : 


1/Parenthèses 

2/Opérateurs arithmétiques 
8/0Opérateurs relationnels (1 seul niveau) 
4/Opérateurs logiques 


L'exemple ci-dessous utilise directement le résultat d'une comparaison (sans IF) qui 
est égal à —1 (vrai) ou à O0 (faux). 
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SG maximum de 2 nombres 
19 3=5:b=3 

29 mxm=-C{a>b2#%a+ta<b3#b) 

3ÿ PRINT mxm 


5 


Remarque : La fonction MAX(X,Y) donne directement le maximum de deux nombres. 


OPÉRATEURS BOOLEENS 


La manipulation de bits et les opérations booléennes sur ces bits s'effectuent avec les 
opérateurs AND, OR, XOR. 


Ces derniers opèrent sur des groupes de 16 bits au plus qui sont spécifiés par des 
nombres allant de —-32768 à +32767 (représentés en complément vrai de façon in- 
terne). 


Les opérations s'effectuent BIT à BIT. 


Exemple : 15 ———>0000000000001111 
4 ——>0000000000000100 

15 AND 4 ————>0000000000000100 ———>4 
Exemple : 4 ——>0000000000000100 
2 ———>0000000000000010 

40OR2 ——>0000000000000110 —>6 
Exemple : —1 —————>1111111111111111 
8 ——>0000000000000000 


—1 AND 8 —>0000000000001000 ——>8 
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L'ÉCRAN 


# MODE = INK # SPEEDINK = POS 
# PEN m CLS #m LOCATE = VPOS 
# PAPER # BORDER # WINDOW # WINDOW SWAP 


La gestion des couleurs sur AMSTRAD est articulée autour d'une table de correspon- 
dance. 


Nous vous conseillons de lire attentivement ce chapitre. 


C'est volontairement que nous n'avons pas présenté la syntaxe complète de PEN, 
PAPER et INK en début de chapitre. 


MODE numéro 


MODE détermine le nombre de caractères par ligne et le type de résolution 
(cf. chapitre “Graphique haute résolution”). 


MODE 0 : 20 caractères par ligne 

MODE 1 : 40 caractères par ligne 

MODE 2 : 80 caractères par ligne 

A la mise sous tension, l'écran est en MODE 1. 
Frappez en mode direct : 


MODE 2 
l'affichage se fait alors en 80 colonnes. 


PEN case 
PAPER case 


Nous expliquons ces instructions pour le MODE 1 : 


couleur 


PAPER 0 — 0 
PEN 1 — Î 
2 
3 





Table de correspondance pour MODE 1. 
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La couleur du stylo (PEN) et du papier (PAPER) se définit à l’aide d'une table de 
correspondance. 


A la mise sous tension, PAPER est égal à 0 et “pointe” vers la case 0 de la table de 
correspondance (couleur 1) ; PEN est égal à 1 et “pointe” vers la case 1 de la table 
(couleur 24). 


PEN 3 fait pointer vers la case 3 (couleur 6). 
PAPER 2 fait pointer vers la case 2 (couleur 20). 


Essayez en mode direct : 


PEN 3 
PAPER 2 


INK case, couleur 





Change la couleur d'une case de la table de correspondance. INK 0,26 place la couleur 
26 dans la case 0. Si PAPER est égal à O, la couleur de fond devient blanche. 


Due) ee 1726 
1 [a 

2 | » | 
s | 6 


INK 1,0 place la couleur 0 dans la case 1. Si PEN est égal à 1, tout ce qui était écrit en 
couleur 24 devient noir. 





Pour le MODE 2, la table de correspondance ne contient plus que 2 cases. Pour le 
MODE 0, la table comporte 16 cases. 


Essayez le programme suivant : 


19 MODE 9 

29 FOR P=1 TO 15 
38 PEN P 

49 PRINT "stylo";r 
59 NEXT P 


stylo 
st310 
sty10 
stylo 


£ oO - 
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Ilécrit avec les 16 couleurs de la table. 


Grâce à INK, la couleur d’un texte déjà écrit peut être modifiée très rapidement. Le 
programme ci-dessous permute 15 couleurs de 15 lignes de texte. 


19 ecriture texte 


5 FOR P=1 TO 15 


68 cCP )=P 

79 PEN P 

89 PRINT LEFT "AMSTRAD... ..,...",P) 
98 MEXT P 

198 ’---- Permutation couleurs 

119 x=c(1) 


126 FOR P=1 TO 14 

139 céPp=c(Pp+1) 

149 IHK P:ccP 

159 MNEXT P 

169 c(152=x: INK 3,c(15) 

173 FOR tP=1 TO 4GG:MNEXT tP 
188 GOTO 116 


Le programme ci-dessous affiche 16 traits verticaux représentant les 16 couleurs de la 
table de correspondance en MODE 0. 


19 MODE 9 

29 FOR P=1 TO 15 
33 PLOT P#39,165,P 
43 DRAW P#29,299,P 
9 NEXT P 


CLS 





Cette instruction permet d'effacer l'écran. 


TABLE DES COULEURS 





n° Couleur de l’encre n° Couleur de l'encre n° Couleur de l’encre 
O0 Noir 10 Turquoise 19 Vert Marin 
1 Bleu 11 Bleu Ciel 20 Turquoise Vif 
2 Bleu Vif 12 Jaune 21 Vert Citron 
3 Rouge 13 Blanc 22 Vert Pastel 
4 Magenta 14 Bleu Pastel 23 Turquoise Pastel 
5 Mauve 15 Orange 24 Jaune Vif 
6 Rouge Vif 16 Rose 25 Jaune Pastel 
7 Pourpre 17 Magenta Pastel 26 Blanc Brillant 
8 Magenta Vif 18 Vert Vif 
9 Vert 
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TABLE DE CORRESPONDANCE DES COULEURS 
A LA MISE SOUS TENSION 


n° stylo/papier Couleur 
Mode 0 Mode 1 Mode 2 


© D M OO OO BR © © — © 


= “= ‘= à ‘=$ 
& © mm — © 





_ 
on 


Remarque importante : Lorsque vous utilisez PAPER 0 et PEN 1 par exemple, si les 
deux cases 0 et 1 contiennent la même couleur, le texte affiché n'apparaît pas. Pour le 
faire apparaître, frapper en mode direct : 


INK 0,13 INK 1,24 : PAPER O : FEN 1 


INK case, couleur1, couleur2 

Lorsque deux couleurs sont définies dans INK, les deux couleurs sont affichées alter- 
nativement. 

BORDER couleur1, couleur2 


Définit la couleur du pourtour de l'écran. Lorsque deux couleurs sont spécifiées, les 
couleurs sont affichées alternativement. 
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SPEED INK case, temps1, temps2 





Définit les temps d'affichage pour “couleur1” et “couleur2” lorsque deux couleurs ont 
été définies dans “INK case, couleur1, couleur2”. Le temps est défini en 1/50° de 
seconde. 


19 IHK 1,24,6 * couleur £4 et 6 


26 SFEED INK 199,29 ‘ 1zes et ,Z2ec 


JEU DE CARACTÈRES 
Le programme ci-dessous affiche le jeu de caractères de l'AMSTRAD. 


19 jeu de caracteres AMSTRAD 
£6 FÜR c=32 TO 255 

328 PRINT EHR#CEZ); 

49 MEXT c 


Il existe une série de caractères accessibles au clavier avec CTRL. 


Le programme suivant affiche la table de codes. On trouvera en annexe la liste des 
codes ASCII. 


19 ‘---—————_—— affichañe codes ecran 
£9 MOCE 2 
34 debut=3 * code debut 
4H ncol=19 " nb de colonnes 
9 nl=24 

L 


79 FÜR 1=1 TO nl 

34 FÜR <lzi TO ncol 

34 cd=il-1#ncol+cl+debut:IF cd:255 THEN END 
155 PRINT <d; CHARS cd; 

119 HEXT £<l 

129 PRIHT 

139 MEXT 1 


LOCATE X,Y 
Positionne le curseur texte dans la colonne X et à la ligne Y. 


Pour LOCATE, l'écran est divisé en 25 lignes de 20, 40 ou 80 colonnes suivant le mode 
défini par l'instruction MODE. 


Pour LOCATE, l'origine de l'écran est en haut et à gauche. 
19 MODE 1 


29 LOCATE 19,15 * colonne 19,1iSne 15 
34 PRINT "COUCOU" 
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COUCOU 





Le programme ci-dessous fait défiler le message « AMSTRAD ». 


24 MODE 1 
34 a$="AMSTRAC....." 


SA LOCATE 19,1S:PRIMT a$ 

E3 a$=RIGHTSHÉ 43%, 1 2+LEFTSS 43%, LEHCaSi-i 
TA FOR tP=i T9 19Y:HEXT tP 

54 GOTD 24 


WINDOW #numéro fenêtre, gauche, droite, haut, bas 


WINDOW définit une fenêtre d'écran. L'écriture se fait seulement dans la fenêtre adres- 
sée. 


fenêtre 1 





19 === exemple de fenetre 

ch MODE 1 

30 WIHDÛW #1,29,359,12,16 

45 PEN #1,:1:PRINT #1,"lignel fenetrel" 
99 PEN #1,3:PRIHT #1,"liSnel fenetrei" 
Eg * 

Fg PRINT "lignei" 

34 PRINT "lignez" 
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Le message “ligne1 fenêtre1” est affiché sur deux lignes. 
Les couleurs de stylo, de papier, peuvent être définies pour chaque fenêtre. 
Les syntaxes complètes de PEN, PAPER, CLS et LOCATE sont : 


PEN # n° fenêtre, stylo 
PAPER # n° fenêtre, papier 
CLS # n° fenêtre 

LOCATE # n° fenêtre,X,Y 


POS (# n° fenêtre) 


VPOS (# n° fenêtre) 
Fournit la position du curseur texte dans la fenêtre spécifiée. 


PRINT "ASDF"; 
PRIH 


36 T POS #9) 


19 CLS 
£ÿ LOCATE 18,2S:PRINT "COUCOU"; 
234 FRIHT VPOSC #9) 


WINDOW SWAP fenêtrel, fenêtre 


Commute deux fenêtres. Ce qui s'écrivait dans la fenêtre 1 s'écrit dans la fenêtre 2. 


15 MÔCE _1 5 
29 WIHDOW #i,19,29,19,29 
34 WUIHDOH #2,22,32,2,83 

44 FRINT #2."fenetrez" 

59 PRINT #1,"fenetre 1" 

63 HIHDOH SHAF 1,2 

F9 PRINT #1,'"suite fenetre 1" 
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L'ENTRÉE AU CLAVIER 


m INPUT # ON BREAK 
# LINE INPUT = KEY 

= INKEYS$ = KEY DEF 
# INKEY = JOY 

# SPEED KEY 


INPUT “message” ; variable 1, variable 2... 


Permet d'entrer, pendant l'exécution d'un programme, une ou plusieurs valeurs nu- 
mériques ou chaînes de caractères. Les variables spécifiées dans INPUT sont sépa- 
rées par des virgules. 


Après l'affichage du message, l'opérateur doit entrer les valeurs des variables dans 
l'ordre défini par l'instruction INPUT, en les séparant par des virgules. 


Exemple avec une variable : 


19 INPUT "Yotre nom ";nomg 
29 PRINT nom$ 


run 
Votre nom 7? DUPONT 
DUPONT 


Exemple avec deux variables : 


18 INPUT "MHom,;a3e ";nom$,239e 
19% 
29 PRINT nom$,age 


run 
Nom,a9e 7? DUPOHT,39 
DUPONT 39 


Pour une variable chaîne, si l'opérateur appuie sur ENTER sans entrer de valeur, la 
variable chaîne devient vide. Une variable numérique prend une valeur égale à 0. 


Si l'opérateur entre une chaîne alors que c’est une valeur numérique qui est attendue, 
le message “REDO FROM START” est envoyé. 


19 INPUT "Ase ";49e 


run 

Age ? DUPONT 
?Redo from start 
A3e ? 
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Les chaînes comportant une virgule (séparateur) doivent être entrées entre guille- 
mets. 


Exemple : 


FEue? "iil,rue HOEEL" 


INPUT # n° fenêtre, “message” ; variable 1, variable 2, 


Fontionne comme INPUT. 


LINE INPUT « MESSAGE » ; variable chaîne 


Permet de lire toute une chaîne au clavier, sans tenir compte des séparateurs tels que 
la virgule comme c'est le cas avec l'instruction INPUT. C'est seulement un retour- 
chariot qui délimite la fin de la chaîne qui ne peut cependant pas excéder 

255 caractères. 


19 LINE IHFUT "Rue "oirue$ 
29 PRINT rue 


Rue? 1i,rue NOBEL 
ii,srue NOBEL 


Remarque : BASIC n'envoie pas de point d'interrogation à la suite du message comme 
c'est le cas avec 'INPUT. 


INKEY$ 


INKEY$ lit le clavier en permanence. Si aucun caractère n’a été frappé, la chaîne lue 
(C$ sur l'exemple) est vide. Le caractère frappé au clavier n’est affiché que si le pro- 
gramme l'a prévu (et non pas automatiquement comme c'est le cas avec INPUT). 


Tous les caractères frappés doivent être analysés, y compris le caractère ENTER (code 
ASCII 13) et le caractère “DEL” (code 127), (avec “INPUT” ces caractères sont gérés 
par “Basic”). 


14 CLS 
23 ? 


39 <$=INKE"YS:IF c$="" THEH 35% * boucle d'attente 
49 PRINT HSC(cH),c$ * affiche le code et le caractere 
5 GOTD 3ÿ 


55 A 
66 B 


15 


Avec INKEY$, le curseur n'apparaît pas. 
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Ci-dessous, tant que vous n'appuyez pas sur une touche, le message “APPUYER 
SUR UNE TOUCHE” est affiché. 


19 C$=IHÉEYS 

24 IF cHhi>"" THEH EHD 

39 PRINT "AFPuyer sur une touche" 
4 GOTD 18 


ApPpuuer sur une touche 
APPuyer sur une touche 
APPuyer sur une touche 
APPuyer. £ur Une touche 
APPuser sur une touche 


BOUCLE D'ATTENTE 


© Attend que l'opérateur appuie sur une touche quelconque. 


$="" THEH 19 
arti" 


o Teste si l'opérateur répond assez vite. 


19 PRIHT "RePondez (D/H)3 Cvite) " 

24 h=TIME 

39 * 

46 rÉS=INHKETS:IF r$<>"" THEH 24 

54 IF TIME>h+1999 THEN FRIHT "Trop tard":EHD 
6 GÜTO 4g 

F9 : 
89 * 


09 


uit 


[O0] 


Le programme ci-dessous saisit une chaîne de caractères. Les caractères frappés 
peuvent être contrôlés dès leur frappe sans attendre la validation par ENTER. 


19 ‘--—m—…—…— s3isie d’une line 2vec INKEYS$ 
39 MODE 2 
49 x3=19:35=19 * coordonners 543isie 


59 GOSUB 89 

68 PRINT:PRINT 119% 

65 END 

PQ mn £PSm saisie dans 119$ 

58 1i3$="" 

38 ‘ 

198 13=LENC1:19$):LOCATE xs+19,YS:PRINT CHR#C143); CHR$C3ZD ? 1 
43 :curseur 

118 LOCATE x2+19,ys 


129 

138 c$=INKEYS$S:IF c$="" THEH 139 * attente fraPPe 
149 c=ASCI CS) 

159 

169 IF =<>127 THEN 199 * code suPPression 


179 IF 1328 THEN 1i9$=LEFT$C 119$, 19-12:PRIHT CHR$CE ); CHRSC 22): 
GOTO 196 ELSE 199 
158 ? 
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139 IF c=1i3 THEN 259 * code ENTERT 

298 IF <<32 OR c>127 THEH PRINT CHR$(C?7); :GOTO 134 

219 1i3$=119$+c$ ? ajout caractere 
226 PRINT c$ * affichage caract. 
238 GOTO 164 

248 ’ 


259 LOCATE xs+19,YS:PRINT CHR#C32) 
268 RETURH 


INKEY (n° touche) 
Permet de tester si une touche est enfoncée. 
Lorsque l'utilisateur appuie sur la touche spécifiée, la valeur obtenue est égale à 0. 


Si l'utilisateur appuie simultanément sur une touche et SHIFT ou CTRL ou SHIFT et 
CTRL, on obtient : 


touche non enfoncée —1 
touche seule 0 
touche + SHIFT 32 
touche + CTRL 128 


touche + SHIFT + CTRL 160 


19 PRINT "APPUYEZ SUR ‘A'" 

39 IF IMKEYSES:=9 THEN PRINT "Yous aPPuuez sur A" 

49 IF INKEY6931=22 THEH PRIHT "Vous aPPuyez sur À et SHIFT" 
59 1F Los »=128 THEM FRINT "Vous 3PPuyez sur CTRL et À" 
E4 GOTD : 


INKEY ne tient pas compte du délai de répétition comme INKEY$. Plusieurs touches 
enfoncées peuvent être testées simultanément. 


Le programme ci-dessous permet de rechercher le numéro d'une touche. 


19‘ fonction IHÉEY( touche à 
29 PRINT "APPUuEZ sur une touche" 

26 FÜR i=<9 TO F3 

49 c=IHKEYCi2 


99 IF c=ÿ THEH FRINT "codez";i * touche enfonceeT 
59 MEXT :i 
Fa GOTI 36 


Les numéros de touche sont distincts des codes ASCII des caractères associés. Les 
caractères associés aux touches peuvent être redéfinis par KEYDEF. 
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NUMÉROS DES TOUCHES DU CLAVIER : 








PEER EETERBERTES 
C0 © 69 © 5 62 1 618 El © 6 










(EIIE 







Le programme “télécran” ci-dessous déplace un point à l'écran en laissant une “trace” 
du passage, permettant ainsi de réaliser des dessins. 


19 : telecran 


24 LOCATE 1,22:PRINT "utiliser les fleches 
39 MOCE 1 


55 x=294:3=2009 
/ 


F3 IF IHKEYC22=9 THEH x=x-1 
89 IF IHKEYC12=9 THEN x=x+1 
99 IF INKEY(D)=9 THEH 5=5+1 
199 IF IHKEY(25=9 THEH 3=9-1 
114 ‘ 

125 PLOT x,y,1 

138 GÜTO 79 


Pour obtenir un déplacement dans les directions diagonales, appuyer sur deux flèches 
simultanément. 


Nous avons écrit le programme de télécran ci-dessus d'une autre façon. L'expression 
(INKEY(8)=0) s'évalue en —1 si le test est vrai et en 0 si le test est faux. En la combi- 
nant à (INKEY(1)=0) nous obtenons le déplacement du curseur sur l'axe horizontal. 


19 ’———————————— telecran avec flechez 

29 MOCE 1 

36 LOCATE 1,22:PFRINT "Utiliser les fleches" 
49 x=259:y=2009 

54:-* 

69 x=x+CINKEY(S = 2-CIHKEY( 1 2=@ 2 

79 y=9-< INKETS D 2=9 )+C IHKEYC22=9) 

89 ‘ 

99 PLOT x,3,1 

155 GÛTO 69 


Le programme “télécran” ci-dessous permet de dessiner et d'effacer dans 8 directions. 
La couleur se choisit avec 1, 2, 8. 
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19 telecran 8 directions + couleurs 
28 MODE 1:IHK 9, 24:INK 1,1:FAFER G:PEH 1 

38 ce=1l:cf=8 * ecriture/fond 

49 SPEED KE“ 19,2 * vitesse clavier 


59 LOCATE 1,29:PRINT "fleches Pour deFlacer" 
68 LOCATE 1,21:PRIHT "Lilever B:hbaisser E:effacer Couleurs: 1,2,3" 
Frÿ x=280:y=266 

GOT RSA RE EMEE OR curseur clisnotant 

39 t=TEST( x: 9) 

159 ’ 

119 cH=INKEYTS:IF c$<>"" THEH 159 

129 PLOT x,3,ce:PLOT x,9,cf 

138 GOTO 119 

149 * 

159 IF 1=9 THEH PLÛT x:4.:ce / 
169 IF 1=i THEH PLOT x,9,t 
17 IF 1=2 THEH PLOT x,93,cf 


\ ( 
L 






15 

136 IF IHKEYC82=9 THEH IF x22 THEH #=x-2 
269 IF INHEY“C12=9 THEH IF x<6@9 THEN X=4+2 
216 IF INKEY(G)=9 THEN IF 5<397 THEH Y=T7+2 
22 IF INKEY<25=9 THEH IF y22 THEH Y=Y-2 


24 CS=UPPERSC c5 


258 IF c$="L" THEH 1=1 lever 
268 IF c$="B" THEH 1=5 * baisser 
7ÿ IF c="E" THEN 1=2 * effacer 
289 IF VALScHI<?9 THEH ce="AL(cS 


238 GOTO 39 


SPEED KEY délai, intervalle répétition 





Règle le délai de répétition des touches et la vitesse de répétition en 1/50° de seconde. 
SPEED KEY 10,20 


A la mise sous tension, SPEED KEY est égal à 10,3. 


ON BREAK GOSUB n° ligne 





Définit l'adresse d'un sous-programme vers lequel il y aura branchement si l'opérateur 
appuie sur “ESC” deux fois. 


19 ON BREAK GOSUE 

29 OH BRERK GOSUE 159 

29 FRIHT "Appuyer sur ESCAFE 2 fois" 

4 GOTO 39 

99 ‘-————-——-—- 2 3m ON EREAK 

199 INPUT "On atbéte vraiment CO/N2 "ir$ 
195 IF r$="0" THEH EHD 

129 RETURN 
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ON BREAK STOP 





Annule l'effet de “ON BREAK GOSUB”. 


19 OH EFERAK STOF 

26 OH BFEAK GOSUB 154 

39 PRINT "Appuyer sur ESCAFE Z fois" 

49 GOT 39 

39 ?’---------- spam OH ERERK 

194 IHPUT "Annulation OH BREAK CO/H5 ir 
145 IF r$=")" THEH ON BREAK STOF 

129 RETURH 


KEY numéro, CHR$(n) + chaine + CHR$(n) 

Associe une chaîne de caractères à une touche dite de fonction. Lorsque vous appuyez 
sur la touche de fonction, la chaîne associée à la touche est affichée, facilitant ainsi 
l'écriture des programmes. 

Si la chaîne est suivie de CHR$(13), la commande codée dans la chaîne est exécutée. 
Par exemple, si vous écrivez : 


KEY 128,"l1ist"+CHR$ (13) 


il suffit d'appuyer sur le 0 du “pavé” numérique pour obtenir la liste du programme. 


La chaîne définie dans KEY ne doit pas dépasser 32 caractères et le total des chaînes 
pour l'ensemble des touches de fonction ne doit pas être supérieur à 100. 


Les numéros des 12 touches du “pavé” numérique vont de 128 à 140. 


0: 128 7::: 195 
1: 129 8: 136 
2: 130 9: 137 
3: 131 .: 138 
4: 132 ENTER : 139 
5: 133 CTRL/ENTER : 140 
6: 134 


Exemples divers : 


1D ‘= touche de fonction 

24 KEY 135, "CLS" “, du clavier numerique 
DG 

44 KEY 137, "cls"4+CHRS$( 130 * 3 du clavier numerique 
SD *—- 


65 KEY 128,CHR$6133+"clstink 1,@tink 1:24"+CHR$ 153 * W numerique 
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KEF DEF n° touche, répétition, code normal, code SHIFT, code CTRL ___ 
Redéfinit les codes ASCII d'une touche. 


L'exemple ci-dessous redéfinit la touche M (n° 38). En appuyant sur “M”, c'est la lettre 
“A” qui est affichée. En appuyant sur “M” et “SHIFT”, c'est la lettre “B” qui est affichée. 


1Drie=ssssssSe redefinition touche M _ 
29 KEY LCEF 35,1,65.:66,67 * Aénormal 2, Bshift),Cécontrol) Pour 
touche M 


“répétition” égal à 1 spécifie que la touche est à répétition. 


Pour connaître le numéro de touche, cf. “INKEY”. 


JOY (0 ou 1) 
Deux joysticks peuvent être connectés sur AMSTRAD. 


Joystick(n) donne la direction du manche de joystick. Les valeurs décimales obtenues 
sont : 


: | Valeur : 
Direction Me Bit 
HAUT 1 0 
BAS 2 1 
GAUCHE 4 2 
DROITE 8 3 
FEU 16 4 
FEU2 32 5 


19 PRIMT JOYcD; 
24 GOTO 14 


Les joysticks peuvent également être lus comme les touches du clavier par INKEY$ ou 
INKEY (n° touche). La figure ci-dessous donne les numéros de touche correspondant 
aux joysticks. 


touche n° 72 48 
à î 
n° 74 <— —> 75 50 — > 51 
| | 
73 49 
FEUT: 76 FEU: 52 


FEU2: 77 FEU2: 53 
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mm telecran avec joystick 


59 x=285:y=299 

69 ’ 

f9 IF INKEY<r40= 
84 IF IMKEYC7352=9 THEN x=x+1 

39 IF INKEYC722=9 THEM y=y+1 

a IF INKEYC7323=9 THEN y=y-1 
116 ‘ 

129 PLOT x,9,1 

159 GOTO 79 


D THEH x=x-1 
(5) 


Sans joystick, on pourra utiliser les flèches du clavier. 


Les numéros de touches sont : 


Lo] 


0 


bl- Es] - 
L 


La touche “COPY” peut être utilisée comme touche de mise à feu. 
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LES TESTS 


# IF... THEN...ELSE 
SI... ALORS...SINON 





IF... THEN...ELSE 
IF expression logique THEN suite d'instructions  ELSE suite d'instructions 
EE D D TR. 
vraie ou fausse si expression logique vraie si expression logique fausse 


Cette instruction teste si une expression logique est vraie ou fausse. Si celle-ci est 
vraie, alors toutes les instructions comprises entre THEN et ELSE, sont exécutées. 
Sinon, ce sont toutes les instructions après le ELSE qui sont exécutées. 


Vrai Faux 
instructions instructions 
après THEN après ELSE 


D 


18 INPUT "Nombre A,Nombre B ";3,b 
38 IF a>b THEN PRINT "A>B" ELSE PRINT "A<=B" 


48 GOTO 19 

run 

Hombre A,Nombre B 7 3,5 
A<=B 


Nombre ÀA,Nombre B 7 6,2 
A>B 


En fait, le test peut se faire, non seulement sur une expression logique, mais aussi sur 
une expression arithmétique qui est interprétée comme fausse si elle a une valeur nulle 
ou comme vraie pour toute autre valeur. Mais on évitera d'utiliser cette particularité du 


BASIC. 


5 i=4 
19 IF i THEN PRINT "I est different de 9" 


S i=129 
16 IF {i218)4Ci<29) THEM PRINT "I est comPris entre 19 et 29" 
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Les IF... THEN...ELSE... peuvent être emboîtés, mais il faut alors bien s'assurer qu'à 
chaque IF-THEN il correspond un ELSE. 


19 INPUT "Nombre A;,Mombre BE" 
26 IF a<=b THEN IF a<b THEN PRINT "AB" ELSE PRINT "A=B" ELSE PRINT 
"A>B" 
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LA BOUCLE AUTOMATIQUE 


m FOR/NEXT 
# WHILE/WEND 


FOR variable-compteur = valeur début TO valeur fin STEP pas 
instruction 1 
instruction 2 

NEXT variable compteur 


Permet d'écrire des boucles de façon plus concise. 


Lorsque l'instruction FOR est exécutée, le BASIC affecte à la variable-compteur la 
valeur début spécifiée et mémorise la valeur fin indiquée après TO. 


Toutes les instructions entre FOR et NEXT sont d'abord exécutées avec variable- 
compteur = valeur début. L'exécution de NEXT augmente la valeur de la variable- 
compteur du pas spécifié dans STEP (1 par défaut). 


Si la valeur de variable-compteur est inférieure ou égale (pour un STEP positif) à valeur 
fin, l'exécution se poursuit à l'instruction après FOR. Par conséquent, les instructions 
entre FOR et NEXT sont à nouveau exécutées avec la nouvelle valeur de la variable- 
compteur. 


Si la valeur de la variable-compteur dépasse valeur fin (pour un pas positif), l'exécution 
de la boucle s'achève et le programme se poursuit après NEXT. 





Compteur <— valeur début 


FOR Stockage de “valeur fin” 









Compteur 
> . 
valeur fin 


OUI 





Instructions entre 
FOR et NEXT 


Compteur < Compteur + 1 FIN 


A la fin de la boucle, la variable-compteur a une valeur égale à valeur fin + 1. 
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Exemples : 


12 FGE AT! TO 4 ‘Pour c=i jusqu'a à 


AT 
50 NET c 
493 FRINT 


1 Ple 
24 FOR c=4 10° 1 FSTER 


C':c*c 
“augmenter € Puis aller aPres for si c<4 
"fin";c 


35 PRINT &c,ckc 


49 HEXT € 

53 PRINT c;i"fin" 
à 15 
2 4 
Î 1 
6 fin 


Calculées au moment de l'exécution de l'instruction FOR, donc une seule fois “valeur 
début”, “valeur fin” et “pas” ne varient pas en cours d'exécution de la boucle si les 
valeurs des variables qui ont servi à les calculer évoluent pendant l'exécution. En 
revanche, la valeur de la variable compteur peut être modifiée. 


19 
29 
39 


Ne peut être 
f=i modifié pendant 


x=10 a. l'exécution 


FÜR i=i TD x 


49 IF i=5 AND f=i THEH x=8 
59 PRIHT i; 
69 MEXT i 
1 2.3 4 5 6 7 23 9 19 
19 FÜR izi TO 5 
24 PRIMT i; 
34 INPUT "nombre ";3Ci2 
49 IF 3512€9 THEN PRINT "erreur" : j=i-1 
SA HEXT :i 


1 nombre 7 4 





erreur 








(2 nombre 7 -2 LT 
ir ue |0n revient en 
£ nombre Ÿ. arrière 


GS nombre 


Ca Gt 
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BOUCLES EMBOÎTÉES 


Plusieurs boucles FOR... NEXT peuvent être “emboîtées”, c'est-à-dire qu'une boucle 
peut être placée à l’intérieur d’une autre. Mais il est interdit de les faire se chevaucher. 


Exemple : 
18 FÜR i=i TO 3 


29 PRINT'i= "sis" j= "5 

35 FOR j=1 TD 8 

4ÿ PRINT J; 

59 MEAT j 

69 PRINT 

73 MEAT i 

i= 1 j=5.1 2 3 4 5 6 7 8 
i= 21234567 3 
i= 3 j5 1 2 3 4 5 6 7 58 


S'il n'y a pas d'instruction entre NEXT J et NEXT |, NEXT J,I donne le même résultat. 
NEXT (au lieu de NEXT J) est accepté, puisqu'en fait NEXT incrémente le compteur 
du FOR le plus récent et que celui-ci est supprimé dès qu'il atteint la valeur limite. Mais 
pour des raisons de lisibilité, on indiquera le nom de la variable. 


SORTIE D’UNE BOUCLE FOR 


On peut sortir d’une boucle FOR par “GOTO” sans problème. (Les versions Microsoft 
antérieures posaient un problème dans le cas où un indice non “épuisé” était utilisé 
dans une autre boucle FOR “interne”). 


OR i= g 
1ô FE 13 THE GOTO 59 ‘sortie Par 3oto 
34 MEXT i 
4g * 
58 FOR j=1 TO 3 
Eg FÜR i=i TJ 4 ‘“i utilise 23 nouveau 
ra PRINT "“iz "ji; 
59 MEXT i 


9 
129 FRINT FRECD 
119 GÜTO 19 


11e js 3.14 
i= 1 i= 2 i= 3 i= d 
1i= 1 i= 2 i= 3 i= 4 
42343 

i= 1 i= 2 i= 3 i= 4 
iz 1 i= 2 i= 3 i= 4 
i= 1 i= 2 i= 3 i= 4 
43343 

i= 1 i= 2 i= 3 i= 4 
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WHILE condition 
instructions 
WEND 


Exécute les instructions entre WHILE et WEND tant que “condition” est vraie. 


Ci-dessous, le message “Appuyez sur une touche” est envoyé tant que l'opérateur 
n’appuie pas sur une touche. 


19 UHILE INKEY$="" ? tant ue INKEYS$S est vide 
29 PRINT "APPuyez sur une touche" 

38 WEND 

run 


APPuyez sur une touche 
APPuyez sur une touche 
APPUYez sur une touche 


47 


TRAITEMENT DES DONNÉES | 3 


LES DONNÉES 


m DATA 
# READ 
# RESTORE 


DATA 


L'instruction DATA permet de définir des données dans le programme lui-même. Celles- 
ci sont ensuite lues dans des variables par l'instruction “READ variable” (LIRE varia- 


ble). 
Pointeur de DATA 
14 DATA 19,16,13,14 
19? 
DO RER Pointeur de DATA 
3ÿ RERD M2 après 2 READ exécutés 
49 READ N3 
53 READ Nd4 
69 ‘ 
79 FRIHT H1,H2:H3,H4 
59 PRINT "MOYENNE :"5CH1+H2+H3+H4 2/4 
15 16 15 14 
MOYEHHE : 13.25 
READ 


“READ N1” lit la première donnée (10) dans N1. 
Le pointeur de DATA (géré par BASIC) progresse de 1. Ainsi “READ N2” lit la deuxième 
donnée dans N2, etc... 


Les données peuvent être écrites sur plusieurs lignes : 
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BATA 18:14 


Les lignes 10 et 20 sont équivalentes à la ligne : 


Por 
CG 


15 DATA 15,16,13:14 


L'implantation des DATAs dans un programme n'a pas d'importance. Elles sont lues 
dans l’ordre de la numérotation. 


Les chaînes de caractères comportant des caractères spéciaux doivent être placées 
entre guillemets. 


Sur l'exemple ci-dessous, sans la présence de guillemets, la virgule serait considérée 
comme séparateur. 


12 DATA "8,rue de Provence" 


39 READ x$ 
48 PRINT x$ 


S,rrue de Provence 


RESTORE 


Positionne en début de DATA ce qui permet de relire les données depuis le début. 


15 DATA 6,3, 14 
e 


39 READ A,B,C "PREMIERE LECTURE 
49 * 

5 RESTORE *DEBUT DATA 

69 : 

79 READ D,E,F ‘DEUXIEME LECTURE 


35 PRINT A,B,C 
146 PRINT C,E,F 


14 
14 


nn 
© & 


RESTORE n° ligne 


Positionne sur le numéro de ligne de DATA spécifié vous permettant ainsi de sélec- 
tionner des données particulières. 


19 CATA 65,3, 14 

25 CATA 4,2Z,83 

38 FRESTÛRE 2ÿ “LIGHE 29 
43 FEAD K:7T,2 

59 FRINT Na To zZ 


4 2 8 
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ERREURS 


# DATA EXHAUSTED : 


Si le nombre de READ exécutés est supérieur au nombre de données en DATA, le 
message “DATA EXHAUSTED” apparaît. 


Il manque une donnée 


19 DATA 15,16 
15 * 


29 READ % 
39 READ 
4ÿ READ Z 


CATA exhausted in 49 


# SYNTAX ERROR : 


Le type de la donnée lue doit s’accorder avec le type de la variable. 


18 CATA MASOÉRE Sr) 


29 READ *X = 
Numérique | 


Syntax error in 19 


L'exemple ci-dessous lit un nom au hasard dans une liste de quatre noms. 


DATA NICOLAS, SÛPHIE, JACQUES , BRUNO 


34 RESTÛRE 
45 A=IHTCRND#4 ) 


59 FÜR 1=1 TO X:READ X$:HEXT 1 
Fg * 

5 REAC HOMS$ 

149 PRINT HOMS& 

114 GOTO 3ÿ 


HICOLAS 
ERUHO 
JACQUES 
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Ci-dessous, nous sélectionnons un groupe de DATA. Chaque groupe peut comporter 
plusieurs lignes. La fin de chaque groupe est repérée par le caractère “*”. 


15 RATE MAISON, PORTE, CHAMBRE 
5 DATA % 


36 DATA JEAN, PIERRE, PAUL, JACQUES 

43 CATA % 

59 DATA ROUE, CADRE , FREIH, PECALE, SELLE 
63 DATA % 


89 RESTORE 
39 INPUT "QUEL GROUPE (1,2,33";G 


199 IF G=1 THEH 259 


119 REAC #$:1F 4$="*#" THEN G=G-1: GOTO 199 
129 GOTO 119 


294 READ MOTS$ 
219 PRINT MOTS 
229 GOTO 89 


QUEL GROUFE (1,2,3) 7 2 


JEAN 

QUEL GROUPE (<1,2,33 7 1 
MAISON 

QUEL GROUPE <1,2,39 7 3 
ROUE 
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LES TABLES 


Les tables contiennent des éléments de même nature auxquels nous accédons par un 
indice. Nous pouvons ainsi traiter les éléments d'une table en faisant simplement varier 
un indice. 

Une table comportant plus de 10 éléments doit être dimensionnée par : 


DIM nom-table (nombre éléments) 


Soit une table des dépenses relatives aux douze mois de l'année. Les éléments de 
cette table que nous appelons DEPENSE() sont connus sous les noms de DE- 
PENSE(1), DEPENSE(2)..., DEPENSE(12). 


TABLE DEPENSE() 

<-DEPENSE(1) 
<—DEPENSE(2) 
<-DEPENSE(3) 





10 


= 
mn 





11 





12 


Pour documenter la table, nous faisons varier un indice M de 1 à 12. 


19 DIM depense( 12) 
28 ! 

36 FOR m=1 TO 12 

48 PRINT "Mois "jm; 
56 INPUT dePense(m) 
68 HEXT m 


run 

Mois 1 ? 1299 
Mois 2 7 1166 
Mois 3 ? 1399 


Mois 12 7 1596 
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Au départ, l'indice M étant égal à 1, l'instruction INPUT DEPENSE(M) est équivalente 
à INPUT DEPENSE(1). Par conséquent, c'est dans l'élément DEPENSE(1) que la 
première valeur est introduite. Au second passage dans la boucle, M étant égal à 2, 
c'est dans DEPENSE(2) que la seconde valeur est introduite. Etc. 


Pour connaître le total des dépenses entre deux mois M1 et M2, nous écrivons : 


DIM dePense( 12) 

39 FOR m=1i TO 12 

49 PRINT “Mois ";m; 

29 INPUT dePense(m) 

69 MEXT m 

79 2e ne ee me ee ee ee ce 0 me ce ce me 

38 PRINT 

163 INPUT "Mois 1";mi 

119 IHPUT "Mois 2";m2 

128 ’ 

149 ttal=0 

159 FÜR m=mi TO m2 

169 ttal=ttal+dePense(m) 
179 MEXT m 

138 PRINT 

198 PRIHT "Total:";imlimzittal 
2686 GOTO 96 


run 
saisie table 


Mois 17 1 
Mois 27 12 


Total: 1 12 14699 


Mois 17 1 
Mois 27 6 


Total: 1 6 7298 
Il'existe pour les tables un élément 0 : 


100 A(0)=135 


TABLES A PLUSIEURS DIMENSIONS 





Plus généralement, les tables peuvent avoir plusieurs dimensions déclarées par : 
DIM nom-table (dim1, dim2, …) 


Soit une table à deux dimensions contenant des stocks de voitures de différents types 
et de différentes usines. 
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STCK(1,1)  STCK(1,2) USN 
STCK(2,1 
( ) 10 5 <——___ Voit 1 
DIM STCK(4,5 ; 
HE Type —æ | 8 <Æ———— \oit 2 
table de 4 lignes : 
et de 5 colonnes on —— Voit3 
a—"\oit4 
1 À | 
Usine 1 Usine 2 Usine 5 


Documentons la table à l’aide de l'instruction INPUT : 


15 DIM stck( 4,53 


39 FOR tuPez=l TO 4 
48 FOR usn=z1l TO 5 
“Stock/TyPpe:";ityPpe; "Usine:";usn; 


58  PRIHT 


68 INPUT stck(tuyPe:usn) 


F9 MEXT usn 
359 NEXT tyPe 


Stock/TyPFe: 
Stock/Type: 
Stock/TyPpe: 
Stock/TyPe: 
Stock/T3Pe: 
5Stock/TyPe: 
Stock/TsPe: 


DNmmmnm tk 


Usine: 
Jsine: 
Usine: 
Jsine: 
Usine: 
Usine: 
Usine: 


F9 = OI RG) NN 
2 2 2 0) 9 


0 (0 VO) U1 


Lorsque la table est documentée, pour connaître le nombre de véhicules d'un type, 


toutes usines confondues, on fait : 


199 IHPUT "Tyfe ";tuPe 


118 ” 

129 ttal=9 

138 FOR usn=i TD 5 
C 


149 ttal=ttal+stckétyPe.:usni 


159 HEXT uzn 
169 ‘ 


179 PRINT "Total tuPe:";ituPeittal 


run 
saisie table 
Type 7 2 


Total tyPe: 2 +1 
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Comme pour les tables à une dimension, la déclaration d'une table à plusieurs dimen- 
sions, toutes inférieures ou égales à 10, n'est pas nécessaire. 


Alors qu'une table et une variable peuvent avoir un même nom, plusieurs tables, même 
si elles ont des nombres de dimensions différents, ne peuvent avoir le même nom. 


Exemple : 
DIM a(7):DIM a(7,8) 


ERASE nom-table 


Efface une table en mémoire centrale. La place est récupérée par BASIC et la table 
peut à nouveau être dimensionnée. 


19 DIM aC2652 


28 PRINT FRE‘D) * place libre 
39 ERASE à * effacement table a<) 
49 PRINT FRESD) ? Place libre 
run 
42377 
43331 


Lorsqu'une table n'est pas dimensionnée par DIM, elle est dimensionnée par défaut 
avec 10 éléments par BASIC dès qu'un élément de la table est référencé en lecture ou 
en écriture. 


Si une instruction DIM est exécutée après le dimensionnement par défaut, le message 
ARRAY ALREADY DIMENSIONNED est envoyé par BASIC. 


19 364)=15 ? dimensionnement imPlicite 
20 DIM ac28) L | 


Il faut dimensionner la table avant de référencer un élément. Lorsqu'une table n’est 
pas dimensionnée explicitement par DIM et que l'on essaie de référencer l'élément 11, 
on obtient le message SUBSCRIPT OUT OF RANGE. 


19 FÜR i=1 TÜ 15 
28 PRIHT ai); 
38 MEXT i 


Il faut ajouter : 


5 DIM A(15) 
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OCCUPATION MÉMOIRE 
Par défaut, les tables numériques occupent 5 octets pour chaque élément. 
Les tables déclarées entières (%) occupent 2 octets par élément. 


19 PRINT FRE(G) 
26 DIM 3268) 
38 PRINT FRE‘G) 


run 
43494 
42436 


19 PRINT FRE(G) 
28 DIM a%C109) 
36 PRINT FRE(G) 


run 
43494 
43283 
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LES CHAÎNES DE CARACTÈRES 


# LEFTS m LEN æ ASC # STRINGS  # BIN$ 
# RIGHTS = STR$ = CHRS$ m SPACES m UPPER$ 
= MID$ = VAL m INSTR  # HEX$ # LOWER$ 


L'affectation d’une valeur à une chaîne s'écrit : 
nom de chaîne = « suite de caractères » 


Exemple : 10 NOM$ = « DUPONT » 


Les « » indiquent que DUPONT doit être interprété comme une chaîne de caractères 
et non comme une variable. La longueur d'une chaîne de caractères, qui n'a pas à être 
déclarée, peut varier en cours d'exécution du programme (jusqu'à 255). De même, la 
longueur de chaque élément d’une table de chaînes peut varier dynamiquement. 


La concaténation (réunion) de chaînes de caractères est réalisée par l'opérateur noté 
« + », 


19 nom$="CUPONT" 
28 Pren$="Jjean" 
59 nP$=nom$+Pren$ 
46 PRINT nF$% 


run 
DUPONT jean 


COMPARAISONS 
La comparaison de chaînes de caractères se fait avec les opérateurs : 
Si speK=,e> 


Les chaînes sont comparées caractère par caractère de la gauche vers la droite jusqu'à 
ce que l’un des caractères d'une chaîne soit plus grand que l’autre (code ASCII supé- 
rieur). C'est alors cette chaîne qui est considérée comme la plus grande (“DURAND” 
est plus grand que “DUPONT”). 

Si tous les caractères sont égaux, les chaînes sont considérées comme égales. 


18 INPUT "lier nom ";in1i$ 

24 INPUT "2eme nom "in2$ 

36 IF n1i$>n2$% THEN PRINT n1%;" est Plus 9rand que "ine$ 
48 IF ni$<n2$ THEN PRINT n1i$;" est Plus Petit que ";in2$ 
58 GOTO 19 


run 

ler nom ? DURAHD 

2eme nom 7 DUPOHD 

DURAND est Plus grand 90e DUPONC 
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Le programme ci-dessous teste une réponse au clavier. 


19 IHPUT "RePonse (oui ou non "ir$ 

28 IF r$="oui" THEN PRINT ‘Vous avez dit oui" 

26 IF r$="non" THEN PRINT "Vous avez dit non" 

49 IF r$="" THEN PRINT "Vous avez afPuu«e sur EHTER" 
54 GOTO 1G 


Remarquez le test d’une chaîne vide en 40(IF R$=“ ”). 


LEFT$,RIGHT$,MID$ 





LEFT$, RIGHTS, MIDS permettent d'accéder respectivement aux caractères de gauche, 
de droite et de l’intérieur d'une chaîne. 


LEFT$ (CHAINE, longueur à prendre à gauche) 
RIGHTS (CHAINE, longueur à prendre à droite) 
MID$ (CHAINE, position début, longueur à prendre) 


“CHAINE”, “longueur à prendre” et “position début” peuvent être des expressions. 
Les valeurs de “longueur à prendre” et de “position début” doivent être comprises 
entre 0 et 255. 


Exemple : 
NOMS = MIDS (XS, 3, 4) 


SXS = LEFTS (XS, 2) | MR | BALU | JEAN PRENS = RIGHTS (XS, 4) 


19 x$="MRBALUJEAN" 


29 2x$=LEFTS( x$6,20 * 2 caracteres 4 9auche 

39 Pren$=RIGHTS$6 x<$, 45 " 4 caracteres a droite 

48 nomb=MIDS&C:x$6,3,45 ? 4 caracteres à Partir dy 3eme 
59 PRIHT 2x$,Pren$, nom 

run 

HR JERAH BALU 


Dans l'exemple ci-dessous, nous testons la première lettre de la réponse : 


18 INPUT "RePonse COUI/NON)D "org 
29 IF LEFT#(r$,1)="0" THEN GOTO 198 
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Autre exemple : 


19 nom$="DUBONET" 

28 FÜR i=1 TO 7 

38 PRINT LEFT#(nom$, i) 
46 MEXT i 


run 

D 

OU 

DUB 
DUBO 
DUBONH 
DUBOHE 
DUBOHET 


Si “longueur à prendre” spécifiée est plus grande que la longueur de la chaîne, le 
résultat est la chaîne elle-même. 


Lorsque “longueur à prendre” n'est pas précisée dans MID$, cette fonction devient 
équivalente à RIGHTS. 


Si “position début” spécifiée dans MID$ est plus grande que la chaîne elle-même, 
une chaîne vide est retournée. 


MIDS$S(CHAINE1, position début, longueur à remplacer) = CHAINE2 
Permet, à partir de “position début” dans “CHAINE1” et sur la longueur spécifiée, 
de remplacer des caractères par ceux de “CHAINE2”. 


15 x$="MREALUJERH" 

29 MID#CXS, 3, +=" EAAA" 
33 FRINT x$ 

48 PRINT nF$ 


Fur 
MRHAAX JEAN 


Attention : ne permet pas l'insertion ou la suppression de caractères mais seulement 
la substitution. 


Si “CHAINE2” est plus longue que “longueur à remplacer”, seuls les premiers ca- 
ractères de “CHAINE2” sont pris en considération. 


Si “CHAINE?” est plus courte que “longueur à remplacer”, il n'y a substitution des 
caractères que sur une longueur égale à celle de “CHAINE2”. 


LEN (chaïne) 


Donne la longueur d'une expression chaîne. 
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18 nom$&="DUPONT" 
23 1=LENC nom$ 
38 PRINT ! 


run 
6 


STR$(X) 
Convertit une expression numérique X en une chaîne de caractères. 


19 x=123 
24 xS=STREC X) 
38 PRINT x$,LENC x5$ 


run 
123 4 


Remarque : Le premier caractère de la chaîne est réservé pour le signe “:” C'est un 
espace pour un nombre positif et un signe “—” pour un nombre négatif. 


PRINT MID#CSTR#(123),2,1) --» 1 


VAL (chaîne) 


Fonction inverse de STRS, elle donne la valeur numérique d'une expression chaîne. 


18 x$="123 francs" 
26 x=YALC xS$ ) 
36 PRIMT x 


run 
123 


Si le premier caractère n'est pas un caractère décimal, un espace, un signe “+”, un 
signe “—” où “.”, le résultat est égal à zéro. 


19 PRINT YALC" 123") 
26 PRINT VALS"+125") 
36 PRINT VALS"H123") 


run 
123 
123 
(:] 


ASC (caractère) 





Chaque caractère a un code interne (code ASCII) auquel on accède par la fonction 
ASC (caractère). 
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18 x$="A" 
29 x=ASCS x$ ) 
38 PRINT x 


run 
65 


ASC (chaîne) 
Donne le code ASCII du premier caractère d'une expression chaîne. 
19 Print asc<"BONJOUR") --} 66 
Une chaîne nulle comme argument provoque une erreur. 
18 x$="":PRIHT ASCCxS) 


ImProPer arSument in 19 


CHRS$(X) 





Fonction inverse de la fonction ASC, elle permet de générer des caractères ayant pour 
code ASCII la valeur de X. Cette valeur doit être comprise entre 0 et 255. X peut être 
une constante, une variable ou une expression. 


19 FOR i=65 TO 65+25 
28 PRINT CHRS# i); 
38 MEXT ji 


run 
ABCDEF GHI JKLMHOPGRSTUYHX"/Z 


CHRS(X) est utilisé pour envoyer des “caractères de contrôle” aux périphériques (écran, 
imprimante). 


CHRS(8) provoque un retour arrière du curseur. 
CHR$(10) provoque un passage à la ligne (sans retour en début de ligne). 
CHR$(13) provoque un retour en début de ligne. 


Exemples divers : 


#“ Suppression d’un caractère à droite d’une chaîne : 


19 x$="CDIJPONT" 
29 x$=LEFTSCxS, LEMC x )-1) 
38 PRINT x$ 


run 
CUPOH 
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# Normalisation d’une chaîne à une longueur fixe : 


19 x$="DUPONT" 
28 3$=RIGHT#&C" "+x$, 8) 
38 PRINT 5%, LENCy%) 


run 
DUPONT 8 


# Insertion d’un caractère dans une chaîne : 


19 z$="ARARA" 

28 x#="B":P=3 

38 Z$=LEFTÉC 2%, P }+XB+RIGHTSCZS, LENCZ$ )-P ) 
49 PRINT z% 


run 
AARBRR 


“ Remplissage par des zéros à gauche : 


19 x=123 
20 xB=RICHTECSTREC 190008+x ),5) 
38 PRINT x$ 


run 
88123 


INSTR (position départ, chaîne, chaîne cherchée) 


Recherche la position d'une chaîne dans une autre. Par défaut, la position de départ 
est égale à 1 : 


0 Si la chaîne cherchée n'est pas trouvée, le résultat est égal à O. 
0 Si la chaîne cherchée est nulle, le résultat est la position de départ spécifiée. 
0 Si la position de départ est supérieure à la longueur de la chaîne où s'effectue la 
recherche, le résultat est nul. 
19 x&="DUPONT. JEAN" 
28 P=INSTREXS, ". "2 
38 YS=LEFTSCxS,P-1) 
48 PRINT y$,P 


run 
DUPONT ré 


19 PRINT IHNSTRCS3, "ABAREARA","B") --» 5 


Le programme ci-dessous vérifie si un nom appartient à un ensemble. 
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19 e$="JEAN PIERRE PAUL JACQUES" 
£9 INPUT "Hom "; nom$ 
39 P=INSTR(eS, nom$):IF P=G THEN PRINT "Erreur'":GOTO 29 


Cette séquence d'instructions permet de répondre à une question “Mode ?” non pas 
par un chiffre, mais par une lettre (plus mnémonique). 


18 INPUT "Mode CC,A,P,R:HD "img * entrer C:H:P,,., 

LS 

29 P=INSTRC" CAPRMH", m$ 2 * Position caractere fraPPpe?7 
30 IF F<2 THEN 1G * yalidite? 

48 OH P-1 GOT) 199,299,409,598.669 

59 ? 


199 PRINT "ligne 199":STOP 
298 PRINT "ligne 299":35T0F 
499 PRINT "ligne 499":S3STOP 


Remarque : Si M$ est une chaîne vide, P est égal à 1. C'est ce qui explique la pré- 
sence d'un espace dans l'instruction 20 devant “CAPRMNP? 


La séquence d'instructions ci-dessous vérifie si un caractère frappé appartient bien à 


un ensemble de caractères autorisés : (chiffres plus le “.” sur l'exemple). 


19 cH=INKETS:IF c$="" THEH 19 * attente caractere 

26 P=INSTRC"9123456789.",c$) * Position caractere fraPPe? 
39 IF HSC(cH)=13 THEH 99 * ENTER? 

49 IF P=G THEH PRINT CHR#(7); :GOTO 19 ‘ caractere invalide? 
58 1i9$%=113$+c$ 

658 PRINT c$; 

F8 GOTO 19 


99 PRINT:PRINT 1:94 


STRINGS (nombre de fois, chaîne) 


Génère une chaîne de caractères égale à la chaîne spécifiée, multipliée par le nombre 
de fois indiqué. 


19 x$=5TRINHGS(19,","0 ? chaine de 19 ‘’.’ 
29 PRINT x#% 


run 


SPACES$(X) 


Génère une chaîne de X espaces. X peut être une expression. 


19 x$="DUPONT"+SPACESCS 2+" JEAH" 
26 PRINT x$ 


run 
DUPOHT JERH 
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Notons que la fonction SPC ne génère pas une chaîne d'espaces et n'est utilisable 
qu'avec l'instruction PRINT. 


HEXS$(expression) 


Fournit une chaîne représentant la valeur hexadécimale de la valeur donnée. La valeur 
donnée doit être entière (—-32768 à +65535). 


10 X$=HEX$(14):Y$=HEX#(14,2) 
20 PRINT X#,Y# 


RUN 
E ÔE 


BIN$(expression) 





Fournit une chaîne représentant la valeur binaire de la valeur donnée. 


19 X$=BIN$F(12):Y$=RIN$S(12,8) 
20 PRINT X#,VY# 

RUN 

1100 00001100 


UPPERS$(chaîne) 
Convertit une chaîne en majuscules. 


19 nom$="roulet" 
24 PRINT UFFERS&E nom 2 


run 
ROULET 


LOWERS$(chaîne) 
Convertit une chaîne en minuscules. 


19 nom$="ROULET" 
29 PRINT LOHERS nommé ) 


run 


roulet 


Remarques sur les chaînes : 
Lorsqu'une chaîne voit sa longueur changée, elle est déplacée. 
La place occupée par l'ancienne chaîne reste perdue jusqu'à ce que l'espace mémoiré 


soit réorganisé par BASIC. Pour éviter ces réorganisations (longues), on pourra utiliser 
MIDS(x$,p,1)=“XX” qui modifie la chaîne sans la déplacer. 
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Le programme ci-dessous remplit une table de chaînes. 


PRINT FRE(" ”) provoque le tassement des chaînes par BASIC. 


19 DIM 3#%(598) 

29 hd=TIME 

38 FOR i=i TO 599 

49 a$Ci)="BASIC"+STRS i) 


59 NEXT i 

64 PRINT "TemPs:";CTIME-hd)/3298 

F8 hd=TIME 

86 PRINT "Espace libre:";FREC(A) 

98 PRINT FREG"") * reorganisation chaines 


199 PRINT "TemPs:";CTIME-hd)/388 
119 PRINT "EsPace libre:";FRE(D) 


run 

TemPs: 5.05666667 
Espace libre: 35441 
37333 

TemPs: 28.2666667 


Espace libre: 37333 
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LES ÉDITIONS 





= PRINT # PRINT SPC # WRITE 
um PRINT, = PRINT USING # ZONE 
= PRINT; = POS/VPOS = WIDTH 
m PRINT TAB 

PRINT expression 


Un simple PRINT d'une constante, variable ou expression, affiche la valeur de celle-ci 
puis provoque un retour en début de ligné et un saut de ligne. 


19 x=123 
28 PRINT x 


run 
123 


PRINT, 


L'impression de plusieurs valeurs sur une même ligne peut se faire simplement en 
séparant dans l'instruction les noms des variables ou les expressions par des virgules. 


19 somme=269 : nombre=1g 
29 PRINT somme, nombre,somme/nombre 


run 
295 19 298 


Mais dans ce cas, l'impression des valeurs est faite selon un format standard (colonnes 
1, 14, 27, etc., les valeurs sont cadrées à gauche). Zone permet de changer le format 
standard. 


PRINT: 


Un point-virgule en fin d'instruction PRINT empêche le saut de ligne : les chaînes de 
caractères sont concaténées, les valeurs numériques sont suivies par un espace et 
précédées soit par un espace pour les nombres positifs, soit par le signe “—” pour les 
nombres négatifs. 


19 nom$&="DUPONT" 
29 Pren$="jean" 
38 PRINT nom$; 
49 PRINT Pren$ 


run 
DUPONT jean 


18 Frint 123; 456;-7533 > 123 456 -789 
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PRINT TAB(X) 


La fonction TAB(X) permet de positionner directement le curseur à l'intérieur d'une 
ligne en colonne X, X peut être une expression. 


19 3=123:b=456 
29 PRINT 3 TAC 152 b 


run 


123 456 


Attention : Le curseur ne peut revenir en arrière. Si X spécifié est plus petit que la 
position courante du curseur, l'édition se fait sur la ligne suivante. 


PRINT SPC(X) 
Avec la fonction SPC(X), X blancs sont imprimés à partir de la position courante : 


19 nom$="COUPOHT":pr$=" JEAN" 
29 PRINT Fr$;SPFLCS 2); nom 


run 
JEAH DUPONT 


PRINT USING 


Considérons maintenant l'outil d'édition le plus puissant du BASIC : le “PRINT USING” 


# VARIABLES NUMÉRIQUES : sans le PRINT USING les valeurs numériques sont 
cadrées à gauche. Or, c'est généralement à droite qu'elles doivent être cadrées. 


# PRINT USING « # # # # # » ; expression numérique 


Un format défini par une chaîne de # nous permet de cadrer les nombres à droite. 
Chaque # représente la position d'un chiffre. 


19 x=123:y=1234 PURE 
29 PRINT USING " #H### mix 
33 PRINT USING " #HH## "y 


run 


123 à drni 
1334 Cadrage à droite 


Sans le PRINT USING, nous aurions obtenu des chiffres cadrés à gauche. 


A 


12: 
1234 


nt] 
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La partie entre guillemets qui représente le format peut aussi être définie par une 
variable chaîne de caractères : 


19 x=123:y=1234 

29 Frté="#H##" 

59 PRINT USING fmt$:ix 
49 PRINT USING fmt$;y 


run 


123 
1254 


= PRINT USING « # # # #.# # » ; expression numérique : 


Le nombre de chiffres après la virgule qui doivent être imprimés est précisé dans le 
format par le nombre de # après le “.” 


; HG HA AH" x 
run : 2 chiffres après 
123.46 «+ la virgule 


On remarque que l’arrondi est assuré automatiquement. 





= PRINT USING «LIBELLÉ # # # #.# # », variable numérique 


Un libellé peut être inséré dans le format. 


14 sommez123. 456 


29 FRINT USING " Total: #H#H#.##  FRANCS "; somme 
run 


Total: 123.465  FFANCS 


Formats multiples : 
Plusieurs formats peuvent être spécifiés dans une seule instruction. 


19 somme=1234.567:tv3=17.6 
ZA PRINT USIHG "Total: HH#HHHH Tua #H#.#H# "somme, tya 


run 
Total: 1234.57 Twa 17.65 
Si le format est le même pour plusieurs variables, on fait : 


19 x=123:y=456 
29 FRINT USIHG "H#HHH#.HH";x,u 


run 


123.09 456.65 
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ce 


© 


© 


Le signe “+” n'est imprimé que s’il est prévu dans le program- 
me. 


19 Print usin3 " ###h";123 ——} 123 
19 Print using "+###h#"; 123 ——} +123 
19 Print using "+###h#";-123 --2 -123 


Un signe “—” en fin de format provoque l'impression du signe 
“_" à la fin d'un nombre négatif. 


19 Print using "####-";-123 ——}  123- 
19 Print using "####-";123 =} 123 


2 “*” placés en tête de format provoquent le remplissage par des 
“** des positions inoccupées à gauche du nombre imprimé. En 
outre ces 2 “*” spécifient des positions pour 2 chiffres supplé- 
mentaires. 


14 Print using "ÆXÆH####": 122 ——)  K#4123 
18 Print using "K#KH###h#" 5 1234 ——?  #*1234 


2 “$” en tête de format provoquent l'impression du caractère “$” 
à gauche du nombre imprimé. 


19 Print using "ép#H###"; 123 ——} $123 


“**$” combine les effets “**” et “$S$”. 
19 Print using "ÆXSHAHH "123 ——) HAASIZS 
Si le nombre de positions spécifié dans le format est insuffisant 


pour la valeur à imprimer, le message % est imprimé devant la 
valeur. 


19 Print using "###";1234 ——} 212354 


= CHAÎNES DE CARACTÈRES 


PRINT USING «\ 


\» : expression chaîne : 


Le nombre d'espaces entre les “\” définit le nombre de caractères à imprimer—2. 


19 x$="RENAULT" 
29 FRINT USING M 


Fun 
RENAU 















NS x$ 





3 espaces 
3 + 2 caractères 
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PRINT USING « ! » ; expression chaîne : 
Imprime le premier caractère d’une expression chaîne. 


PRINT « & » ; expression chaîne : 
Spécifie une longueur vatiable de chaîne. La chaîne imprimée est égale à la chaîne 
spécifiée. 


19 nom$="ROULET" :PRENS="NICOLAS" 
29 FRINT USING "& l"'inom$,Pren$ 


run 

ROULET H 
Programme pour tester PRINT USING : 
Le programme suivant permet d'entrer par INPUT à la fois le format et le nombre à 
imprimer. 


19 IHPUT "Format. nombre "5 fmt$, nombre 
29 PRINT USING fmt$: nombre 


run 


Format,nombreT ####,123 
123 


POS/VPOS 
Donnent les coordonnées du curseur. 


15 LOCATE 19,8 
29 PRINT "NICOLAS"; 
34 PRINT POS #9 }, YPOS< KG) 


ru 
MICÜLAS 17 8 





WRITE expression1, expression2 


Procède comme PRINT … mais sépare les valeurs par des virgules et imprime les 
chaînes entre guillemets. 


19 a=59:b=144:x$="NICOLAS" 
24 URITE 3:b,x$% 


run 
29,169, "HICOLAS" 


ZONE intervalle 





Définit l'intervalle d'édition standard lorsque les variables sont séparées par des vir- 
gules. 


70 | BASIC AMSTRAD 


19 ZÜÛHE 13 
ZA PRINT 1,2,3 
39 ZONE 14 
FRIHT 1,2,3 


[AU 
Len] 


WIDTH largeur 
Définit la largeur d'édition à l'imprimante. 


ÉDITIONS IMPRIMANTE : 
Pour éditer sur imprimante, il faut utiliser le canal #8. 


19 PRINT #5, "DUPONT 
ELABLA 


ÉDITIONS IMPRIMANTE/ÉCRAN : 
Un même programme peut aiguiller des résultats vers l'écran ou l'imprimante. 


19 INPUT "Ecran ou imPrimante CE/12 "5om$ 
29 

39 IF m$="E" THEN cn=9 

49 IF m$="l" THEH cn=8 

58 * 

6H PRINT #cn, "ELAELA" 

F9 GOT 19 
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DES PROGRAMMES 


LES SOUS-PROGRAMMES 


# GOSUB... RETURN 


GOSUB RETURN 


l'est fréquent qu'une même séquence d'instructions soit utilisée plusieurs fois dans 
un programme. Un sous-programme permet d'écrire une seule fois cette séquence 
qu'il suffit d'appeler de différents endroits du programme par GOSUB n° d'instruction. 


a=30:b=10 





0) Dre 
acue 





N 


s=a3+b 
39 P=a*b 
(59 PRINT a,b,"Somme:";s; "Produit: "3Pp| 
68 












T0.” 

9ÿ a=291b=5 Même séquence 
199 s=a+b d'instructions 
119 P=a*#b | 

128 PRINT a,b,"Sonme!"ss3"Produit"1P | 

139 ’ 





20 GOSUB 500 provoque un branchement du programme en 500 (comme le ferait 
GOTO 500) mais l'instruction RETURN (RETOUR )) placée à la fin du sous-programme 
provoque un retour automatique après l'instruction qui suit GOSUB 500, c'est-à-dire 
l'instruction 30 sur l'exemple. 


Pour le deuxième appel du sous-programme en 100, le retour se fait en 110. 
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19 a=30:b=19 
28 GOSUB 599 — Al =jù <2h+p 


38 ’ l'|5e6 P=AtE 
49 234 FRINT AB; "£SOMME";5;"PROCUIT"':F 
90 3=28:b=5 | 244 FRIHT "FIH SOUS-FROGRANME" 
199 GOSUB 598 _? 
119 END 
139 ’ 
599 PRINT "Debut sous-Programme 
cn POSE On remplace par 
: un sous-programme 
539 PRINT a;ib;"Somme";s;"Produit";p 
549 PRINT "Fin sous-Pro9ramme" 
5939 RETURH 








Retour automatique 
à l'instruction qui 


suit GOSUB run 
" Debut sous-Pro9ramme 


39 19 Somme 49 Produit 399 
Fin sous-Pro3ramme 
Debut sous-Programme 

29 5 Somme 25 Produit 198 
Fin sous-Programme 





Remarque : Un sous-programme peut lui-même en appeler un autre. 


Les adresses de retour (90 et 540 sur l'exemple) sont gérées par Basic à l'aide d'une 
pile. 


50 
60 
70 
80 GOSUB 500 
90 ir 540 i. 1040 …. 
100 550 ……. 1050 Pile des 
110 560 RETURN 1060 RETURN 295565 de 


retour 


940 


aa 
—# © 
æ D) 
oo 
© 
O O©O 
RETURN 


a 
Q2 
Ô 
Q 
O 
[4] 
Œ 
(eu 
_— 
Q 
© 
Le] 
4 
Q 
@ 
O 


Les instructions sont exécutées dans l’ordre suivant : 


50 60 70 80 

500 510 520 530 Début du 1° sous-programme 
1000 1010 … 1050 1060 2° sous-programme 

540 550 560 Fin du 1°" sous-programme 

90 100 Retour au programme principal 


N'essayez pas de sortir d'un sous-programme par GOTO), ni d'entrer dans un sous- 
programme par GOTO. Les sous-programmes sont utilisés non pas seulement pour 
économiser de la place mémoire, mais aussi (et plutôt) pour les raisons suivantes : 


O Par souci de clarté : le “programme principal” est plus court. 

D Les sous-programmes permettent éventuellement de répartir la programmation entre 
plusieurs programmeurs. 

D La mise au point se fait sous-programme par sous-programme. Ainsi on progresse 
plus sûrement dans la mise au point de l'ensemble du programme. 

0 Dansle cas où la même séquence d'instructions est répétée, une modification dans 
cette séquence doit être faite aux différents endroits où elle a été écrite (fastidieux). 
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D Lorsqu'un sous-programme est modifié, la “zone d'intervention” est bien délimitée ; 
tout le programme ne risque pas d'être remis en cause. 

0 Les sous-programmes ont aussi l'avantage, lorsqu'en cours de mise au point, il faut 
“restructurer” le programme, de permettre une certaine souplesse ; l'ordre d'appel 
des sous-programmes est à modifier mais ceux-ci ne changent pas. 

D Plutôt que d'insérer une nouvelle séquence d'instructions correspondant à l'ajout 
d'une nouvelle fonction, on peut écrire un sous-programme qui est appelé quand 
nécessaire. 


Les avantages des sous-programmes sont donc multiples. Aussi n’hésitera-t-on pas à 
en faire un usage abondant, même lorsqu'ils ne comportent que quelques instructions. 
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LES BRANCHEMENTS MULTIDIRECTIONS 


= ON X GOTO... 
= ON X GOSUB... 


ON X GOTO n° lignel, n° ligne2 


Suivant la valeur d’une variable (ou d'une expression) : 1, 2, 3... il y a branchement 
au n° de ligne1, n° de ligne2, n° de ligne3..… 


S'il ne correspond pas de numéro de ligne à la valeur de la variable, c'est l'instruction 
qui suit “ON GOTO” qui est exécutée. 
18 INPUT "Votre choix (1,2,33 ";ch 
38 ON ch GOSUB 166,300,568 

; jé 
59 STOP CH=1 CH=2 CH=3 
199 PRINT "Choix 1" 
120-5708 7 © 
see PRINT "Choix 2" X=1 X=3 
316: STÔ0P -. > "| 





(598 PRINT "Choix 3" 
519 STOP X = 2 
run 

Votre choix C(1,:2,3) 7 2 

Choix 2 


ON X GOSUB n° lignel, n° ligne2,.… 


Fonctionne comme ON X GOTO, mais dès qu'une instruction RETURN est rencontrée, 
il y a retour automatique après l'instruction ON X GOSUB... 


22 INPUT "yYotre choix C1,:2,33 ";ich 


33 OH ch GOÜSUB 166,304,508 
48 PRINT "Suite" 

53 GOTO 18 

66 * 

169 PRINT "Choix 1" 
129 RETURH 

139 ” 

386 PRINT "Choix 2" 
318 RETURN 

338 ? 

508 PRINT "Choix 3" 
316 RETURH 
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# ERR # RESUME 
# ERL # ERROR 
# ON ERROR GOTO 


ERR-ERL 


Dès que survient une erreur pendant l'exécution d’un programme et si l'instruction “ON 
ERROR GOTO n° ligne” a été prévue, il y a branchement à un programme d'erreur au 
numéro de ligne spécifié dans l'instruction “ON ERROR". 


Ce programme d'erreur analyse alors l'erreur en testant les valeurs de ERR et ERL qui 
représentent respectivement le code erreur et le numéro de ligne où s’est produite 
l'erreur. 


Après avoir analysé et traité l'erreur, l'instruction RESUME permet au programme d'er- 
reur de provoquer un retour au programme où s'était produite l'erreur. 


19 ON EFRÜR GOTO 19 * en cas d'erreur 

19: 

28 INPUT "Diviseur'";d 

34 PRINT 19/4 

43 GOTO 29 

99 mm mm mm anal3se erreur 

199 PRINT "ERR=";ERR; "ERL=";ERL 

119 IF ERF=11 AND ERL=39 THEN PRINT "Division Par zero inter 
dite":RESUME 29 

129 PRINT "Erreur non reconnue":STOP 


run 
Diviseur? 5 
el] 


Le 

Diviseur? D 

Division Par zero interdite 
Diviseur? 
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ON ERROR GOTO 0 





Ecrit dans un programme de traitement d'erreur, il annule ON ERROR GOTO N° ligne. 
L'erreur est donc traitée normalement par le système (interruption du programme et 
message d'erreur). 


Remarque : la division par zéro n'arrête pas l'exécution du programme. 


RESUME 





Ecrit à la fin d'un programme de traitement d'erreur, RESUME spécifie où doit se 
poursuivre l'exécution du programme : 


RESUME l'exécution se poursuit au numéro de ligne où s’est produite 
l'erreur. 

RESUME NEXT l'exécution se poursuit au numéro de ligne après celui où 
s'est produite l'erreur. 

RESUME N° ligne l'exécution se poursuit au numéro de ligne spécifié. 

ERROR 

ERROR N° erreur permet à l'utilisateur de définir ses propres codes erreurs 


(compris entre 0 et 255) et de provoquer un branchement à 
ON ERROR GOTO... comme si une erreur avait eu lieu. 


10 ERROR 11 provoque un branchement à ON ERROR GOTO... 


Remarque : “ON ERROR GOTO N° ligne” doit être écrit de préférence en tête de 
programme afin d'être interprétée avant que ne survienne une erreur. 
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DES PROGRAMMES 


m ESC m TRON 
um CONT # TROFF 
m STOP/END 


Les programmes ne fonctionnent pas toujours “du premier coup”. BASIC envoie des 
messages d'erreurs (de syntaxe par exemple) mais ne détecte pas les erreurs de 
logique. Pour les cas les plus délicats, il faut suivre le déroulement du programme 
étape par étape, ce qui est relativement simple en BASIC. 


ESC - CONT 


En appuyant sur ESC deux fois (une fois pour l'instruction INPUT) nous interrompons 
l'exécution du programme. Nous pouvons alors visualiser les valeurs des variables en 
mode immédiat. 

L'exécution interrompue peut être poursuivie en frappant CONT (continue). 


Exemple : 


Le programme ci-dessous effectue la moyenne de plusieurs notes. Nous avons commis 
(volontairement !) une erreur. En 50, au lieu de TNTE = TNTE + NTE, nous avons 
écrit TNTE = NTE. 


14 tnte=f 

15 nnte=9 

39 INPUT "NOTE "int 
49 IF nte=9 THEN 145 Erreurl 

54 tnte=nte Her 

6ÿ nnte=nnte+i TNTE = TNTE + NTE 
F4 GOTO 34 


© D 


| 





8 
1GQ PRINT "Mosenne:";tnte/nnte 














run e On entre 0 

NOTE 7 15 pour indiquer la fin 

HOTTE 7 134 des notes 

HOTE + 13 

HOTE 7 9 4 à 
Hodenre Ce. | La moyenne devrait être 15,3 
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Remarque : Les instructions 10 et 15 qui initialisent les valeurs de TNTE et NNTE à 
zéro ne sont pas indispensables puisque RUN les initialise à zéro. Il est cependant plus 
prudent de le faire dans un programme plus important où TNTE et NNTE pourraient 
déjà avoir été utilisées dans une autre partie de programme et avoir une valeur non 
nulle. 


Exécutons à nouveau le programme et interrompons-le après avoir entré la première 
note. Nous pouvons visualiser en mode direct les valeurs des variables NTE, TNTE et 


NNTE. 
de 1 LE 
SL # 0 i E 
HOTÉ 4Ereak the 
Erea E: ET 


1 5H 


ar 
D mn PRINT NTELTNTENNTE 

















Pour l'instant, rien d'anormal. 


Frappons CONT pour continuer l'exécution du programme et interrompons à nouveau 
le programme après avoir entré la deuxième note : 





COUT 

HÜTE à 7 On appuie à nouveau 
HÔTE « +Erea sur ESC 

Ereak Ÿn 20 


FEIHT HTE,THTE, HHTE 





Le cumul pour TNTE _ À 
n'est pas effectué 5 1= 


2 


Nous nous apercevons en regardant la valeur de TNTE que le cumul des notes n'est 
pas effectué. 


STOP 


Au lieu d'appuyer sur la touche ESC, nous aurions pu placer une instruction “STOP” 
en 65. 
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tte instructi LA 31. 
cette instruction HOTEP 7 154 


Ereak in 65 


R 
eba tnte, nnte On peut voir à chaque 
! F passage dans la boucle 


15 1 comment évoluent les valeurs 
des variables TNTE et NNTE 











cont 
NOTE # 13 





Brezk in 65 


Print tnte,nnte 
13 2 


En cas de “BOUCLAGE” de programme : 


Lorsqu'un programme ne s'arrête pas, appuyer sur ESC ; frapper TRON puis CONT. 
On peut ainsi localiser la partie du programme où la boucle s'effectue. 


TRON-TROFF 


Les commandes “TRON’ et “TROFF” peuvent être incluses comme instructions dans 
un programme. 


Exemple : 


18 i=i 

28 ‘ 

34 i=i+i 

49 IF _i=5 THEN 70 
58 GOTO 49 

66 ” 

F8 EHD 


tron 

run 
C191L293C391L403L581L401L581L491L501L401L521L491L591 
C401C501L401 


troff 
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LES FONCTIONS ARITHMÉTIQUES 


L'argument des fonctions trigonométriques est normalement exprimé en radians. L'ins- 
truction DEG permet de l'exprimer en degrés. Le retour aux radians se spécifie par 
l'instruction RAD. 

19 RAD 


29 PRIHT SIMCPI/2) 
39 DEG 


Ê] 
49 PRINT SIN(99) 
59 RAC 


run 
1 
1 
ABS(X) Fournit la valeur absolue de X : 


100 PRINT ABS(—-35) —— 35 
ATN(X) Donne en radians l’arctangeante de X. 


CINT(X) Convertit X en un entier avec arrondi : 


100 PRINT CINT(_ 1.6) ————»- 2 
110 PRINT CINT(—-1.2) ————»  —1 


CoS{X) Donne le cosinus de X. 
CREAL(X) Convertit un nombre en réel. 
EXP(X) Donne l’exponentielle de X. 


FIX(X) Supprime les chiffres après la virgule : 


100 PRINT FIX( 2.2) ——»> 2 
110 PRINT FIX(—-2.2) ——» —2 
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FRE(0) Donne la place libre en mémoire centrale 


(l'argument 0 n’est pas utilisé). 


INT(X) Donne la partie entière de X avec arrondi : 


100 PRINT INT( 2.2) —» 2 
TIOPRINTINTE 22) 2 5 


LOG(X) Fournit le logarithme de X. 
LOG10(X) Fournit le logarithme en base 10. 
100 PRINT LOG10(100) —# 2 


MAX(X,..,2Z) Donne le maximum d’une liste. 
100 PRINT MAX(15,4) ——>% 15 


MIN(X,..,Z) Donne le minimum d'une liste. 
100 PRINT MIN(15,4) ————+ 4 


ROUNDIX,N) Donne l'arrondi de X avec N décimales. 
100 PRINT ROUND (123.456,2) ———» 123.46 


SGN(X) Donne le signe X : on obtient respectivement —1, 0, +1 
pour les valeurs négatives, nulles, positives. 
SIN(X) Donne le sinus de X. 
SQR(X) Donne la racine carrée de X (X doit être positif). 
TAN(X) Donne la tangente de X. 
UNT(X) Convertit un entier sans signe en un entier entre —-32768 et +32767. 
DEF FN(X,Y,2) 





En plus des fonctions internes (telles que SQR, SGN, INT, etc.), l'utilisateur peut définir 
ses propres fonctions par : 


DEF FNXX (X,Y,Z.,...) = EXPRESSION (X,Y,Z....) 


où XX représente un nom choisi par l'utilisateur pour identifier sa fonction (les règles 
d'appellation sont les mêmes que pour les variables) et X,Y,Z,... les arguments de la 
fonction. 


Plus tard, cette fonction sera appelée par le programme avec les valeurs réelles des 
paramètres. 
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L'exemple ci-dessous donne la moyenne de trois nombres. 


14 DEF Fou, 4, x iec bu +ris 
54 


A FRINT FHrmuust 14,6, 185 


Une fonction ne peut être écrite que sur une seule ligne de 255 caractères au plus. 


C'est de préférence en tête de programme que sont écrites les fonctions de façon à 
être interprétées avant qu'elles ne soient appelées. 
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L’ACCÈS À LA MÉMOIRE ET | Q 
ENTRÉES-SORTIES DIRECTES 


L’ACCÈS À LA MÉMOIRE 


# PEEK = INP 
# POKE = OUT 
# HIMEM = WAIT 
# MEMORY 


PEEK (adresse mémoire) 


Fournit en décimal le contenu d'un octet de la mémoire. 
. FÜR m=zi TO 5 


G PRINT m,PEEKKm) 
39 HEXT m 

1 137 

2 127 

3 237 

4 73 

5 135 


POKE adresse mémoire, valeur 





Range une valeur exprimée en décimal (0—255) à l'adresse spécifiée. 


65 
18 FOKE 59999,65 / 65 dans Saga 
28 PRINT PEEK(59699) affiche le contenu de 29994 bé 


run 50000 


53 


Naturellement, il faut que la mémoire adressée soit modifiable. 
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Le programme ci-dessous visualise le contenu de la mémoire à l'écran ou sur impri- 
mante. Les adresses mémoires et les contenus sont spécifiés en hexadécimal. Pour 
les visualiser en décimal, supprimer HEXS$. 


19 mm dumP memoire 

z6 MODE 2 

36 INPUT "Adresse depart (en decimal où hexa C&xxx35 ";ad 
49 INPUT "Combien d’octets "in 

54 INPUT "ImPrimante <O/MN)d "ir$ 

IF r$="0" OR r$="o" THEN P=8 ELSE P=9 

T9 ? 

29 FÜR am=3d TO ad+n STEP 8 

99 PRINT #P,'"2&";HEXS#C am); TABC3); 


199 13$="" 
115 FOR k=9 T9'7 
124 C=PEEKC am+k 2 


139 PRINT #P,HEX%#Cc); TAB(12+k%4 3; 

149 IF c>31 AND c<128 THEN 195=19#%+CHR$(c) ELSE 19$=19%+CHR%€32) 
159 MEXT k 

168 PRINT #P,19% 

179 HEXT am 


Adresse depart en decimal ou hexa Caxxx)) 7 8163 
Combien d’octets 7 250 
Imprimante <OD/Hù 7 


4165 6] (z) (3) 5] g 9 L) ] 
179 2A 6 A () 1 Cg 20 2D # = 
B1F3 2D 2D 2D 2D 2D 2D 2D 2D -------- 


8128 2D 2D 2D 2D 20 2D 2D 2D -------- 
8138 2D Z2D 2 2D 29 64 75 6D ---- dum 


8194 79 29 6D 65 60 6F 69 72 P memoir 
4193 65 8 9 14 9 AD 29 

&1AG 15 ÿ 35 6 iE 5 A3 29 j 

41 64 7 63 73 ?3 65 "Adresse 


&1H3 22 ( 

4169 24 64 65 79 61 72 F4 2 depart 
4188 29 65 6E 29 64 63 63 69 (en deci 
h1CE 5D 61 6C 28 6F 7”: 29 68 mal ou h 
&1CS 65 78 61 29 29 28 26 73 exa (x 
&1D04 r8 3 293 2 éÿg 22 3B D xx)) "5! 
8108 5 (5) 61 E4 9 1F 9 28 El [e 
L1E8 (5) 43 29 22 43 EF 6D 62 "Comb 
&1E3 69 65 6E 29 64 27 6F 63 ien d’'oc 
HIMEM 


Fournit l'adresse mémoire maxi utilisée par BASIC. 


10 PRINT HIMEM 


MEMORY adresse 


Modifie l'adresse mémoire la plus haute de la mémoire pour BASIC. 
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19 PRINT HIMENM 
24 MEMORY 49098 
29 PRINT HIMENM 


run 
43143 
4920 


INP (n° entrée) 
Lit sur l'entrée spécifiée une valeur comprise entre 0 et 255. 


10 PRINT INP(&FF177) 


OUT n° sortie, valeur 


Envoie vers le numéro de sortie indiqué la valeur spécifiée (entre 0 et 255). 


OUT &F8F4,10 


WAIT n° entrée, octet 





Suspend l'exécution du programme jusqu'à ce que (valeur entrée) AND (octet) <> O. 


WAIT &FF34,20 
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LES NOMBRES ALÉATOIRES | Ÿ 


= RND 
#” RANDOMIZE 


Les nombres aléatoires sont essentiellement utilisés pour les programmes de jeu ou 
d'éducation. 


RND(X) pour X > 0 ou RND 





Fournit un nombre aléatoire compris entre 0 et 1 (1 exclus). 


16 FOR n=1 TO 3 
29 PRINT RNHD(1), 


36 MNEXT n 

run 

9.271940658 8.528612386 6.9213530127 
run 

8.175133616 9.657r7173343 6.653729687 


Pour obtenir des nombres entiers entre 0 et 9 par exemple, il faut : 


O0 multiplier le nombre obtenu par 10, 
0 prendre la partie entière du résultat, avec la fonction INT (X). 


FOR _n=zi TO 4 
x=FHDe 1 2 
y=x#15 
z=INTÉ y) 
PRINT x,:49,2Z 

HET 


Qi CN B Qi 
CLOUD ue ou 


-219653r33 
.173633121 
. 3539786642 


.35ÿ425333 


CN) 4 Où 
Din Je 





M LIT 
LC) = C0 
CC) = 
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Pour obtenir un nombre entier entre 1 et 10, il suffit d'ajouter 1. 


FÜR n= wu? 
FR LNT 2 LHRE ÉMDX10 +1 ; 
38 NEXT n 


Fos 
se 


3 8 8 1 4 2 
RND(0) 


Fournit le dernier nombre aléatoire généré. 


19 FÜR _n=1 TO 3 
29 PRINT RHD 


39 NEXT n 
45 PRINT RHD(G) 


9.132364713 
9.3527353595 
5.3r5612436 
9.375612436 


RANDOMIZE 


Initialise une série aléatoire qui dépend de X. La série est toujours la même pour X 
donné. 


15 RANCOMIZE 6 * initialise une serie 
29 ? 

39 FOR i=1i TO 3 

49 PRINT RHDC1) 

59 MEAT i 


run 
9.271946353 
.:25512386 
9,92133%127 


run 

9.271949653 

9.523612386 

5.921339127 

Pour générer des séries aléatoires différentes, faire : 
RANDOMIZE TIME. 
19 FANCOMIZE TIME 
24 FOR x=1 TO 3 
35 PRINT, RHD(19 


4ÿ MEXT x 
.363629318 
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GRAPHISMES ET SONS | {() 


LE GRAPHISME HAUTE RÉSOLUTION 


# MODE = CLG 

# PLOT/PLOTR mn TEST/TESTR 
# DRAW/DRAWR # TAG/TAGOFF 
# MOVE/MOVER = ORIGIN 

# XPOS/YPOS 

MODE 


L'écran est divisé en 400*640 points. Il existe trois modes : MODE 0, MODE 1, MODE 
2. Suivant le mode, la taille des points allumés est plus ou moins importante, mais 
l'adressage se fait toujours dans la résolution la plus élevée, c'est-à-dire 400*640. 
L'adressage se fait soit en absolu, soit en relatif. 


Y (0 — 399) 


De PPS ER RARE RTE æX (0639) 
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PLOT X,Y,stylo 
PLOTR DX,DY,stylo 
PLOT X,Y allume le point X,Y spécifié. 


__100 _, 100,100 


[10 


Si le mode spécifié est MODE 1, le point allumé est plus gros. 


19 MOCE 2 
28 PLOT 145,195,1 





Allume le point de coordonnées 100,100. 


19 MODE 1 
29 PLOT 194,198, 1 


Mais l'affichage se fait au même endroit. 


PLOTR DX,DY allume un point par rapport au point courant : 


19 MOCE 2 
24 PLOT 159,195. 1 
39 PLOTR 29,29,1 ” decalase de 29,20 (124,129 en absolu) 


DRAW X,Y,stylo 
DRAWR DX,DY,stylo 





DRAVW trace une droite entre le point courant et le point spécifié. 


19 MOCE 2 
24 PLOT 166,195 
36 CRAN 265,299 * droite entre 109,194 et 299.299 


200,200 


100,100 
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DRAWR DX,DY spécifie un déplacement relatif au point courant : 


19 MOLE 2 
z9 PLOT 15ÿ,169,1 
29 CRAUR 199,169, 1 ’ droite entre 190,169 et 29,299 


Les programmes ci-dessous représentent un carré de 100,100 en absolu et en relatif : 


re sien carre 

29 MODE 1 

38 PFLOT 154,199, 1 * Positionne en 169,144 

45 DRAH 295,199,1 * droite avec le Point 296.19 


45 CRAN 265,296, 1 
59 DRAU 165,266, 1 
63 DRAU 156,199, 1 


Ji ererresmses— carre en relatif 

19 MODE 1 

26 PLOT 149,196, 1 ‘ Positionne en 194,145 

355 DRAUR 156,6,1 * droite dx=196 dy=6 

43 DRAHR 9,199, 1 ? droite dx=9 dy=164 100,100 


59 DRAUR -165,6,1 
68 CRAUR G,-149, 1 


Le programme ci-dessous représente un rectangle plein : 


19 ’-------—- rectangle 

29 MÛCE 1 

39 xa=199:3a=105 * origine 

45 1=269 * longueur 
Sÿ h=108 ? hauteur 
69 FÜR x=xa TO xa+1l 

F4 PLÛT x,ya,1 

89 CAM x,ya+h,1 

34 HEAT x 


Remarque importante : 
Lorsque le numéro de “stylo” n'est pas spécifié dans l'instruction PLOT ou DRAW, le 
stylo par défaut est le dernier utilisé. Par conséquent, si un programme précédent a 
utilisé le stylo O, le programme en cours ne trace rien. Il est donc prudent de spécifier 
le numéro de stylo. Il est également recommandé d'initialiser la table des couleurs qui 
pourrait être modifiée par un programme précédent. 

10 INK O,1 : INK 1,24 
MOVE X, Y, stylo 
MOVER dx, dy, stylo 


Positionne le curseur graphique (comme PLOT et PLOTR) mais sans affichage. 


XPOS/YPOS 


Fournit la position du curseur graphique. 
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14 MODE 1 

29 MOYE 145,145 

39 DRAM 155,145 

58 PRINT “POS, PUS 


155 145 


CLG papier 
Efface l'écran graphique. Positionne le curseur en bas de l'écran graphique. 


CLG 2 


TEST (X,Y) 
TESTR (X,Y) 


Donne le numéro de stylo qui a été utilisé pour le point X,Y. 


10 MODE 1:PEN 1:PAPER 0 
20 PLOT 100,100, 1 

30 PRINT TEST(100, 100) 
RUN 


1 


ORIGIN X,Y, gauche, droite, bas, haut 


Redéfinit l’origine du curseur graphique. Les coordonnées spécifiées dans PLOT, DRAW 
et MOVE sont relatives à la nouvelle origine. 


Ci-dessous l'origine est redéfinie en 100,100. DRAW 30,30 trace une droite entre la 
nouvelle origine et le point 130,130. 


19 MODE 1 
29 ORIGIH 199,169 * redefinit l’origine 
34 DRAH 39,39 * trace une droite a Partir de 190,199 


Si les paramètres gauche, droite, bas, haut sont spécifiés, une fenêtre graphique est 
définie. 


19 ‘--- FENETRE GRAPHIQUE 

20 MODE 1! 

30 INK 1,0:INK 0,26 

40 ‘-- Origine 440,100 

90 ORIGIN 440,100,440,640,100,300 
60 CLG 2 

70 ‘-- 


BO DRAW 200,200,3 
90 MOVER -5,-2 
100 FILL 3 CPCéb4 SEULEMENT 
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TAG n° fenêtre 
TAGOFF n° fenêtre 


Pour afficher du texte à la position du curseur graphique, on utilise TAG. Le texte est 
affiché sous le curseur graphique. 


Si l'instruction PRINT n'est pas suivie d'un point-virgule, les caractères CHR$(10) et 
CHR$(13) sont affichés à la suite du texte. 


JS ———————— affichage avec TAG 

19 MOCE 1 AMSTRAD 
29 TAG ET, nvrai 
39 FOR x=199 TO 269 STEP 19 ÉD an Es 
49 MOVE x, x ne 

59 PRINT "AMSTRAD"; 

69 HEXT x 


TAGOFF annule l'effet de TAG ; l'affichage par PRINT se fait normalement à partir du 
curseur texte. 


Voici divers exemples de programmes utilisant la haute résolution. 


0 Ce programme affiche un histogramme de 4 valeurs définies en DATA. 


LA ———————————— histogramme 

A MÜCE 1 

39 x69=29:,5=199 * origine 

49 13=15 ? largeur 

59 itv=2n * intervalle 


69 DATA 59,76,29,54 

74 FOR i=i TD à 

89 FREAC h 

36 #b=xg+éi-1#it" 

199  ce=IHTé RMDE 1 243 2+1 ? couleur 
119 FOR dx=1 TO 12 rectangle 
129 PLOT xb+dx,19,ce: DRAM xb+dx, 189+h.ce 
159 HET dx 

149 HEXT i 

159, ensansss axes 

169 PLOT x9:49,1:CDRAU :9+194,1n 

179 PLOT xÿ9,95.1:CRAU x9,44+199 
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0 Le programme ci-dessous affiche les 15 premières couleurs de la table des couleurs 
en MODE 0. 


19 ner couleurs . 
trace 15 boites de couleurs differentes 
59 ‘ essayer avec mode 1 
49 ? 
59 MODE 
69 INK G,1:INK 1,24:PAFER G:PEH 1 
Fr x9=24:y@=155 ? origine 
89 13=15 * laraeur 
99 itv=26 ? intervalle 


199 FOR i=1 TO 15 

119 xb=xg+éi-12#ity 

129 cez=i ? couleur 

139 FÜR dx=1 TO 19 * rectangle 

145 PLOT xb+dx,49,ce:DRAM xb+dx,s#ÿ+149,ce 
159 NEXT dx 

168 MEAT i 





O Anneau 


En traçant un cercle plein en couleur de fond sur un cercle plein, nous représentons 
un anneau. 
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1H sn RsSeTessnRssEsss anneau. 

28 MÜCE 1 

39 INK G,1:IHK 1,24:FAPER D:PEH 1 

4g »x9=140:y9=199:r=69:ce=1:G0SUB 89 ? Îer cercle 
SA r=d4g:ce=ÿ:GOSUE 59 ? 2eme cercle 


84 r2=rkr 

ag FÜR dxz=z-r TD r 

1899 du=SGRére-c dxkkdx 2 

119 FPLOT x9+dx.9yG+dy:DRAU xf+dx,19-dy,ce 
129 MEAT dx 

159 RETUFH 


0 Croissant 
Avec le même principe que ci-dessus, nous représentons un croissant. 


19 croissant 

29 MOCE 1 

25 INK 9,1:IMK 1,24:FAPER G:PEN 1 

39 xÿ=196:34=169:r=69:ce=1:GOSUB 79 ? 1 
49 xÿ=160:r=89:ce=g:GOSUE 7ÿ 1e 
53 END 


r2zr#r 

FÜR dxz-r TO r 

dy=SORC rz-Cdxkdx ) 1 

199 PLOT xg+dx, 16+du:CRAU xg+dx,19-du,2e 
119 MEXT dx 

129 RETURH 


0 Ours 


Le tracé de l’ellipse est réalisé en faisant pivoter une droite autour du centre. Le “pas” 
dépend de la grandeur de l'ellipse. 


Li Où JM 
DA RL CE LEUR 


1 
24 MODE 1 

39 INK D,1:INK 1,24:PAPER-D:PEN 1 
45 x0=190:y9=109 


S9 xi=xÿ:y1=90:r=69:cez1:GOSUE 159 ? tete 

69 #1=20-459:"Y1=19+59:kR=49: GOSUB 162 ? oreilles 
79 #1=#9+49:%1=Y9+5ÿ:F=49:GOSUB 189 

49 xi=x@iul=40-19:r=19:ce=g:GOSUE 135 ? nez 

AA xi=xn-29:41=49+20:r=6: GOSUB 1£9 * yeux 


198 xi=xÿ+24:y1=569+29:r=6: GOSUE 159 
119 PLOT xÿ-4,99-32:DRAN xÿ+2,:5-32,9 


1:29 FÜR 3=-14 TO 14 
145 PLÛT xÿ9-29,96-709+9:CFRAN xg+354, 49-79-11, 1 
159 NEXT 


LS ON CE elliPse 
124 hzr#2:1l=r#2.3 

154 FÜR 4=4 TO Z#P1+9.1 STEP 1.2/r 

EU  x=x1+é 1/2 24C0S4 a 2 

219 uy=41+6h/23#SIN a) 

ERA PLOT xi,91:DFAU x,y,ce 

34 HEËXT 4 

4 RETURH 
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CO Palmier 


10 ner Prnnseremnenese Palmier 

za MODE 2 

39 LEG 

4 ÜRIGIN 399,28 

38 MOYE 3,8 

64 FOR a=1 TO 29 

‘9 FOR b= -39 TO 34 STEP 39 

9  DRAN SIN(b)4LOGC29-a+1 49-19, COS b I4S4LOGC29-3+1 1+2#11 
33  NEXT b 


118 RAC 

129 a%="Pascale" 

139 b=LEM( 3%) 

125 TAG 

149 FOR c=i TO b 

159 FOR 4=94 TO 279 STEF 14 
169 X=SINCdOXKCC#35 248-109 
179 Yy=CDOSC d'I#kC C2 45 +28543 
159 MOYE x, Y:PRINT MID#a%,c,1); 
139 NEXT d 

249 HEXT c 


O Araignée 


29 MOCE 1:IHK G,:1:INK 1,24 

39 *0=3690 :Y9 =294 

4 R=29 

59 ? 

69 FÜR M=1 TO 3 STEP 9.3 

79  PLOT xg+rkm, 38, 1 

£9 FÜR H=<PI/4 TO 2#F1+9.1 STEP PI/4 
35 A=RAMECOS( À 2+%*9 

152 ERAMESIHCA +79 

115 ERAU %4,%,1 

125 PLOT #9, 9: DRAM %,Y 

155 HEXT À 

149 HEXT M 

154 ‘ 

164 PLOT X9+R,Y0+86,1:DRAU XD+R,'""2+R 
179 LÜUCATE 21,21:PRINT CHR#CZ£ZS à 

189 LOCATE 21,22:PRINT CHR$C162) 

138 LÜCATE 24,22:PRINT CHR#Ç 192 ); CHRSC 196 3; CHR$C 195 à; 
298 FOR a=1 TO 1GB8:HEXT 

218 LOCATE 29,22:PRINT CHR$(C193 2); CHP$C 145 2; CHRSC 192 j; 
229 FÜR 3=1 TÙO 199:HEXT 

238 GOTO 138 
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0 Histogramme circulaire 


29 MOCE 2 

39 INK W,1:IHK 1,24:PAFER 9:PEN 1 
49 hi12=9.2:h#1="tarte" 

59 hf22=9.3:h$625="croissant" 

58 Hhi32=9.1:h$(32="brioche" 


79 hid2=9.3:h8t4)="eclair" SÉDIMENTS 

89 hS)=0. 1ih$CS>="pain" A D ui 
99 * 

199 xa=29:43=244 | 

118 r=Eÿ brioche 

125 ? 





159 PLOT xa+r,1a 

144 FÜR 3=5 TO Z#FI+9.1 STEP 9.1 
159  x=xat+r#CUS( a 

164  y=ya+r#&SIN( a) 

174 CPAU x:4,1 

155 MEXT à 

SDL eee sers affichage texte 
299 33=ÿ 

218 FÜR P=1 TO S 

EZG  3=a3+PI42%KHCP 

234  x=xa+r#C0S a 1:y=93+r#4S IH 30 


249 PLOT x3,4a3:DFAU %x,9,1 

258 ? 

L6D at=3a+Pl#hép * affichage texte 
EPY  xzxatr£kl. SKCOSCatD:y=ua+r#1, SKSIMC at) 


299 IF atPIl‘2 AND até3#PI/2Z THEN x=x-S#LENCHSCP 1 
299 PLÛT X:4:TAG:FRINT H$6P 3; 
E] 


3373 
314 MEXT P 


o Chronomètre 


29 MODE 2 
39 INK G,1:INK 1,24:PAFER G:FEM 1 


49 *“0=309 :‘ÿ=299:R=199 * centre 

59 ORIGIN «4,19 * redefinition origine 
58 GOSUE 249 

D ‘mm mme Sraduations 


59 FOR A=9 TO Z#PI STEP PF1/6 
29  “=FR#0. 24CO0S< À 2: Y=RKO. SKS NCA D 
199 XI=R#COSCA D: Y1=RESIHCA) 

119 PLÛT X,Y:1:DRAU 1, 71,1 

129 HEXT À 

PQ meme nee te mouvement aiguille 
149 R=R#D.7 

154 FOR A=199 TO 3 STEP -F1/24 
169 x=r#CDS( a): y=r#kS IMC a 

174 PLÜT 9,9:DRAU x,4,1 

189 SOUHD 1,599,2 

139 FOR TP=1 TO 129:NEXT TP 

249 DFAH 9,9,9 

219 HEXT À 

229 END 
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25e ss ess reses cercle 
243 FLOT r,5 

254 FÜR A=G TO 2#PI +9.2 STEP G.05 
269 DRAH r#&COS6 3.3, r#SINCa 3,1 

273 MEXT À 

239 RETUFH 


0 Pour tracer un triangle plein. 


La façon la plus simple pour tracer un triangle plein consiste à faire pivoter une droite 
autour d'un sommet. 


P: 


P; 


La droite P,-P, 
pivote pour remplir 
le triangle. 


Vi RG D trian3le Plein 


29 ? On fait Pivater une droite autour de PY entre F1 et F2, 
39 ‘ Au lieu de calculer Yefixis 
49 ? on calcule #=Fi D) et YaféOi aves D variant avec un Pas de 1 
5 ? 
549 MODE 2 
F9 INK W:1:IHK 1,24:FAFER D:PEH 1 
w |] 4 


24 xÿ=149:49=148 ler PointéPivoto) 
39 x1=21ÿ:41=2354 * eme Point 

1H x2=124:4y2=200 * 3eme Point 

119 ? 


129 A=SORE y Zu 1 DH xE-x1 220 distance entre F1 et PE 

139 IF = THEH END 

144 crsixE-si 1/d:cyztyE-y15;/d 

154 FÜR dd=g TJ d * on Parcourt 13 droite entre Pi 
159 x3=x1+dd#cx: 43521 1+dd#c4 et F2 

179 PLOT xÿ.u44,ce:DFRAU x3,:43,1 

159 HEXT dd 

1939 KETURH 
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0 Figures inscrites dans un cercle 


18 k need figures inscrites dans Un cercle 
39 MODE Z:IHK G,1:IMK 1,24:PAFER G':PEH 1 

49 xc=199:yc=156 * centre 

55 r=5ÿ * ra33on 

69 ncotez * nombre de cotes 
ràä GOSUB 145 

5ÿ Pmmnmemmememummmenmmmmsmmen— 

95 ncot=é:xc=2609:GOSUE 14% * hexa3one 

196 

114 ncot=15:xc=505:GOSUB 145 * cercle 

126 END 

129 - SP 9m 


148 PLIT xc+r, y 
155 FÜR c=1 TO ncot 


169 a=c#PI#2/ncot KE An 
179  x=xc+r#CDSK à) SR \, \ 
189 Yy=yc+r£SINC a) 1 | 

199 DRAU x,4,1 Le \ FE 


253 NEXT € 
218 RETURH 


o Etoiles 


2 ‘ nd trace d'etoiles 

£ 

39 MODE 2:1IMHK G,1:IMK 1,£4:PAFER 9:PEN 1 

49 xc=1W5:5c=169 * centre 

où r=5ÿ * rayon 

64 ncotzs ? nombre de branches 
Fr GOSUB 149 


99 ncotz7:xc=205:GOSUB 149 


119 ncot=15:xc=349:GOSUE 149 
128 EHC 

1 SP Sr 
149 PLOT xc+r'uc 

154 FOR czi TO ncot 

169  a3=c#Cncot-1 2#Pl/ncot 
Le #4=xkc+r'KCOS< à à 

124  y=1c+r#S IN 235 

199 DFA x, 

294 HEXT «c 

215 RETURN 





26HA HEXAT € 
214 FETURH 


D Recopie d'écran 


Nous proposons ci-dessous un programme de recopie d'écran haute résolution pour 
l'imprimante AMSTRAD. 


102 | BASIC AMSTRAD 


200D esse recoPie d'ecran sur imprimante AMSTRAD 
2616 DEFINT a-z 

2926 DIM 12328) 

2634 1n=593 

2948 FOR 13=1 TO 35 

2658 FOR x=ÿ TO 313 

2968  13Cx2=9 

2879 FOR P=9 TO 6 

2626 IF TESTCX#2, ln-P#22329 THEM 19Cx)2=19Cx2+C2"P 5 
2898  MEXT P 

2199 MEXT x 

2119 PRINT #3, CHR$(27 3; CHR&C 75 3; CHRSC 2 ); CHR#C 64 ); 
2129 FOR z=9 TO 313:FRINT #3,CHR#C 1929); :NEXT z 
2134 PRINT #8,CHR$ 19C328)) 

2149 ln=ln-14 

2159 MEXT 13 

2166 PRINT #5,CHR#&C15)2 


Pour obtenir une copie d'écran, faire : 
MERGE “HARDC" puis “RUN 2000” 


Il est prévu pour fonctionner avec PAPER 0. En revanche, la couleur d'écriture définie 
dans PEN n'a pas d'importance. 
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LA REDÉFINITION DES CARACTÈRES 


# SYMBOL 
# SYMBOL AFTER 


SYMBOL 


Les caractères standard peuvent être modifiés à l’aide de l'instruction SYMBOL. Ceci 
permet notamment de représenter des formes qui sont ensuite affichées et effacées 
très rapidement. 


La règle d'utilisation est simple : 


D On dessine le caractère dans une matrice de 8 x 8 points. 
0 Pour chaque ligne, on effectue la somme des “poids” des points de la ligne qui 
doivent être allumés. 


Exemple : 
Sur l'exemple ci-dessous, pour la ligne 3, on obtient : 
16 + 8 + 4 = 28. 
Le] 
POIDS © 
Ligne 1 
Ligne 2 


6 + 8 + 4 = 28 





Dans une instruction SYMBOL, on indique la suite des nombres obtenus dans l'ordre 
des lignes. 


19 = etoile 
£f MÜDE 1 
39 c=159 * caractere a modifier 


49 S'/MBÎL AFTER c 
29 SYMEOL c,8,8,25,127,28,34,€5,8 
64 PRINT CHAgéc) 


-SYMBOL AFTER 
“SYMBOL AFTER” spécifie le premier code des caractères à modifier. 
Ci-dessous une étoile traverse l'écran de gauche à droite, puis de droite à gauche. La 


vitesse s'adapte grâce à la temporisation en ligne 170. L'effacement se fait en impri- 
mant un espace devant le caractère. 
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19: = - deplacement etoile 

29 MOCE 1 

39 INK 9,26 * fond blanc 

48 INK 1,4 ? encre noire 

59 PAPER 9:PEN 1 

ED c=145 * caractere redefini 


F9 SYMBOL AFTER c 
€ 3YMEOL C8:9,23, 127,28, 34,65,0 


Es RSR RES deplacement etoile 
149 y=19:x1=1:x2=56 * bornes 
118 == ? sens 

1:a 


139 FOR x=x41 TO x2 STEP s 

149 LOCATE x,Y:PRINT CHR$C32); CHRSÇ CD CHRSC 32 D; 
159 FOR tP=1 TO SA:NEXT tP 

159 HEXT x 

179 x=x1:xi=x2:xX2=x:8=-s * inversion 

129 GOTO 138 


La forme ci-dessous est représentée avec deux caractères redéfinis. 


18 MODE 1 ci al 


38 c=145 

49 SYMBOL AFTER c 

58 SYMBOL c,:68,56, 56, 7:717:4,12 

68 SYMBOL c+1,8,4,9,246,240,240, 16,48 


75 chien$=CHR$&(C)+CHR&C c+1 
88 LOCATE 10,19:PRINT chiens 


Utilisation de TAG : 


Pour positionner un caractère avec le curseur graphique, on utilise TAG. Naturelle- 
ment, le positionnement est plus précis qu'avec LOCATE. 


Exemples : 
0 Ciel étoilé 


19 ‘--——————-—— ciel etoile 

24 MOCE 1 

24 IHK 9,2 * fond blanc 

44 INK 1.9 / encre noire 

59 PAPER G:PEN 1 

69 c=125 * caractere redefini 


Fg SYMEOL AFTER c 

29 S'MBOL c,9,8,28,127,25,34,65,0 
39 TAG 

195 FÜR e=1 TO 199 

119 x=FHC( 1 24509 

124  y=RHD 1 24309 

139 MOVE x,1 

149 PRINT CHR$#C); 

159 HEXT # 
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de 
re Ad # e 
À* A k E” FA Pi 
Ah À * a é À À 
à © d 
k À 7 À 
À ai 
A* À a, À 
.. L ” À 


D Etoile (avec TAG) 


Ci-dessous, nous déplaçons une étoile. Le déplacement est plus progressif qu'avec 
LOCATE. 


1Q mm deplacement etoile (avec TAG) 
29 MODE 1 

24 IHK 9.26 * fond blanc 

4A IHK 1, a ? ancre noire 

59 AAA A :PEH 1 

69 c=12s ’ actere redefini 


F9 SYMEOL AFTER c 
59 SYMEOL C8, 8,29,127,28, 34 :65,9 


JU Presses deplacement etoile 
196 TAG 

119 FÜR el ne sua STEP 2 

129 MOVE 244 

129 PRIHT CHRSC 22 >; CHR € ); 

14Q HEXT x 


O0 Formes de 16 x 16 points 
Pour représenter des formes de 16 x 16 points, il faut redéfinir 4 caractères. 


Ci-dessous, nous représentons une locomotive : 


CHRS$(10) provoque un saut de ligne, 
CHRS(8) décale le curseur vers la gauche. 


Je NÉ on 5 er le locomotive 
. MODE 1:IHK G,1:IHK 1,24 
49 C=i45 * 1er caractere a modifier 


58 SYMEOL AFTER C 

69 S''MEÎL c<,9.:9,6,9,16,0,43,48 

F SYMBOL c+1,:9,9,9,9,254,198,254,254 

28 STMBOL c+2,127,127,127,127,255, 255, 48,48 

39 S'YMBOL c+3,254,254, 254, 254, 255, 255, 24, 24 

198 1H=CHRSC CI+CHREE +1 D+CHREC 19 2+CHREC 3 D+CHREC 8 D+CHR EC c+Z + 
CHRSE c+3 +CHRSC 1 1 ) 

119 LOCATE 19,2:PRIMT 1% 


129 t$=1$+1$ * train 
136 LOCATE 19,1S:PRINT t$ 

149 ‘--- chaine effacement 

159 efs= CHR 32 2+CHR SC 19 2+CHR ECS D+CHREC 32 
169 ?’----————_—“_—— avance locomotive 

174 y=18 


189 FOR x=24 TO 1 STEP-1 
129 LOCATE x,9Y:PRINT l$sef$ 
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289 
219 
228 
238 
249 
259 
268 
279 


4223 


HEXT %x 


1®" caractère 


3° caractère 





FOR tP=1 TO 199:NEXT tP 


avance train 


FOR x=24 TO 1 STEP-1 
LOCATE x,3:PRINT t$:efs 
FÜR tP=1 TO 19G:NEXT tP 


2° caractère 


\ 


= 


4° caractère 


EH: ". : 275 CREER 























Pour déplacer la locomotive plus progressivement qu'avec LOCATE, nous utilisons 


TAG. La chaîne “h$” 
inférieure. 


représente la partie supérieure de la locomotive et “b$” la partie 


JD rentes deplacement locomotive avez TAG 

Ed ‘ 

24 MÜCE 1:IMK 9,1:INK 1,24 

4 Czids lier caractere a modifier 
54 SYMEOL AFTER C 

SA SMEOL c,9,0,6,4,16,4,45,45 

F4 S''MEOL c+1.9.4,69,0.254,198,254,254 

99 £SYMBOL c+2,127,127,127,127,255,2955, 49,493 

94 SYMEOL c+3,254,254,254,254, 255, 255, cé, 24 

154 ‘ 

119 H$S=CHRSC EC +CHRSE +1 D+CHRSÉ 32 ) ? haut 
124 bÉS=CHRSC C+Z D+CHR SE +3 + CHE SE 92 à ? Has 
159 3=195 

144 TAG 

154 FOR x=549 TO 1 STEP -2 

129 MOVE x,4:PRINT h$; :MOVE %x,4-14:PRIHT bS; 
154 HEXT x 
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D Générateur de caractères 


Nous proposons un “générateur de caractères” permettant de représenter des formes 
de 16 X 16 points. En mode “Télécran”, nous représentons la forme. Le programme 
fournit ensuite les valeurs décimales des 4 caractères. 











HICHOOMMMMMMINMIHMMMN 8 8 

- ü 

« x à 

“< re i 6 [s] 

…_ : îe ‘83|° 

x É = 

re K ce S54 

€ x 48 Sea 

# “x 4 254 

€ « 182,2 LCA, 
# lat e54 

x, x 3 | 187 ESA | 4 
K Ë 

“ ‘BE 43 La 

LEA x 45 Le 

x M< 

MMMICIE 

FLECRES FOUR DEFLACER 

L:LEUER F:BAISSER F:FIM 
19 GEHERATEUR DE CARACTERES 16416 


29 MOCE 1 
33 DIM tC(18,18) 
48 FOR x=1 TO 18:LOCATE x, 1:PRINT "x":LOCATE x, 18:PRINT "x":1MHE 


x 
5e FOR 3=1 TO 13:LOCATE 1,3:PRIHT "Xx":LOCATE 18,Y:PRINT "x":ME 
XT y 

68 LOCATE 1,28:PRIMT "FLECAES POUR DEPLACER" 

rÿ LOCAIE 1,21:PRINT "L'LEVER B:BRISSER F:F1H" 

89 x=10:y=10 

99 

1608 cH=INKEYS:IF c$<>"" THEN 169 

119 LOCATE x,:Y3:PRINT CHR$c 1425 

129 FOR tP=1 TO 19S:HEXT tp 

139 LOCATE %x,4:PRINT CHR&32) 

148 GOTO 198 

159 * 

169 IF £<zs=9 THEH LOCATE Xx,Y:PRIMT CHR#C143):tix-1,uy—12=1 
179 IF cs=1 THEH LOCATE x,Y:PRINT CHR$&C32)D:ECx-1, 4-1 2=9 
159 * 

199 <c$=UFPERSC CS) 

299 c=ASC(c$) 

219 IF c=£242 THEH IF x22 THEH x=x-1 

229 IF c=243 THEM IF x<17 THEH x=x+1 

238 IF c=241 THEM IF Y<17 THEN y=y+1 

244 IF c=249 THEN IF Y22 THEN y=y-—1 

259 IF <$="L" THEH cezi 

268 IF c$="B" THEH ce=ÿ 

278 IF <$="F" THEN 399 

288 GOTO 149 

299 calcul valeurs decimales 
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399 FOR CLzi TO 2 ? 2 colonnes 

319 FOR L=i TO 16 * 16 lignes 

324 PS=<CL-1 2438 

339 HD=9 * valeur decimale 


349 FOR Xzi TO 8 * 1 caractere 
355 A=G:IF TCX+PS,L)i=i THEN A=1 
369 ND=ND+RA#2"< 8-X% 2 


379  MNEXT * 
389  LOCATE 29+CL#5,L:PRINT MND;SPCC1) 
394  MEXT L 


433 NEXT CL 
419 GOTO 195 


0 Le programme ci-dessous représente une maison. 


10 mm maison 
1 : 


38 MODE 1 
49 C=125 

58 SYMBOL 
68 SYMBOL 
79 SYMBOL 
84 SYMBOL 
98 S'YMBOL 


INK G,1:INK 1,24:PAPER 9:PEH 1 


? caractere a modifier 
AFTER C 
c,12,:12,63,127,255,64,95,85 
c+1:9,9,248,252,255,2, 2,2 
c+2,95,85,935,85, 95,64,64,127 
c+3,122,74,74, 196,74,74,74,254 


109 m$=CHR#&C C +CHRSC C+1 2+CHREC 19 2+CHRBC 8 D+CHREC 8 D+CHR BC c+Z D+ 


CHR$C c+3 ) 
118 PRINT 


mg 


D Celui-ci des immeubles dont la hauteur est aléatoire. 


mn IMMEUBLES 


38 MODE 1:INK G,1:IHK 1,24:PAPFER G:PEN 1 

48 C=125 * caractere a modifier 

60 SYMEBOL AFTER C 

79 SYMBOL C,255,129,129,129,129,129,129,255 


75 c$=CHR$(C) 


98 *B=1:YB=23 


119 
1308 
148 
159 
169 
170 
139 
199 
296 


FOR N=1i TO 5 * 5 immeubles 
H=RNDE 1 245+5 : L=RHDK 1 243+3 

FOR Y=YB TO YB-H STEP-1 

FOR #=*B TO XB+L 

LOCATE X,Y:PRINT C$ 

NEXT x 

NEXT 
#B=*B+L+2 
NEXT N 


Ready 
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LES SONS 


= SOUND = SQ 
m ENV = ON SQ GOSUB 
m ENT # RELEASE 


SOUND canal, période, durée, volume, enveloppe volume, enveloppe 
fréquence, période bruit 


Un son est défini par sa période, son volume et sa durée. Plus la période est grande, 
plus le son est grave. 


volume 






temps 


nn 


SOUND 1,478 ’ canal,période 


Exemple : 


joue la note DO pendant 0,2 seconde. Pour jouer la note pendant 1 seconde, on écrit : 
SOUND 1,478,100 ’temps=1 sec. 


Le temps est spécifié en 1/100 de seconde. Le volume spécifié doit être compris entre 
0 et 7 si aucune enveloppe n'est spécifiée. Il est de 4 par défaut. 


SOUND 1,478,50,6 ‘temps=.5 sec./volume=6 


La fréquence en Hertz s'obtient par : 
fréquence=125000/période spécifiée 


Pour obtenir un son de fréquence F, on calcule la période à spécifier par : 125000/F 


Exemple : 
Pour obtenir du 1000 Hertz, la période spécifiée doit être 125. 


19 INPUT "Frequence "if 
za P=125000/;/$ 


39 SOUNC 1,P,194 
49 3oto 19 
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L'instruction SOUND ne bloque pas l'exécution du programme. Plusieurs sons peuvent 
être joués simultanément sur trois canaux (A, B, C). 


15 SOUHD 1,125,169 * canal À 1069 HERTZ Pendant 1 seconde 
29 SOUNC 2,599,26g ’ canal B 254 HERTZ Pendant 2 secondes 
39 PRINT "SUITE" 


Avec une seule commande SOUND, on peut jouer la même note sur plusieurs canaux 
grâce à un système de codage. 


A 1 
B— 2 
C— 4 


Exemple : 


Pour jouer sur À et C, on code 5 (1+4) dans l'instruction SOUND. Chaque canal 
dispose d'une file d'attente pouvant comporter jusqu'à quatre commandes SOUND. 


La synchronisation entre des canaux se spécifie en codant : 


Synchronisation avec A _ 8 
Synchronisation avec B _ 16 
Synchronisation avec C _ 32 
Attente — 64 
Libère — 128 


Période : 


La période spécifiée dans SOUND doit être comprise entre O0 et 4095. O spécifie l’ab- 
sence de fréquence. 


Durée : 


La durée qui est par défaut 20 (0.2 sec.) doit être comprise entre —-32768 et +32767. 
Si la durée spécifiée est nulle, la durée est fournie par la commande ENV. Une valeur 
négative donne le nombre de répétitions de l'enveloppe de volume. 


Volume : 


Il doit être compris entre 0 et 15. Sans enveloppe de volume, il est égal à 4 par défaut 
et doit être compris entre 0 et 7. Avec enveloppe de volume, il est égal à 12 par 
défaut. 

Enveloppe de volume : 

Un son peut être “modulé” en amplitude par une enveloppe (de période plus impor- 
tante). Cf. instruction ENV. 

Enveloppe de ton : 

Cf. instruction ENT. 
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ENV numéro, nombre pas, pas volume, temps, nombre pas, pas volume, 
DS 


Pour définir une enveloppe de volume, on indique le nombre de pas, le pas et le temps 
de pause (en 1/100 sec.). 


Exemple : 


Nous définissons une enveloppe croissante pendant 5 secondes puis décroissante 
pendant 5 secondes. 


volume 









10 pas=5 sec. 


10 secondes 
2994 EHY 1:19,1.59.19,-1.54 * 19 Pas de 1 de .35 3ec 
2919 SOUHD 1.125.:19649,1:1 * Pendant 19 secondes 
Pour obtenir l'enveloppe ci-dessous, nous écrivons : 


2999 ENV 1, 5:2,24, 1,4,2499, 16,-1,29 
2914 SÜUHD 1,125,598,1.1 


volume 


temps 
2 sec. 2 sec. 1 sec. ; 


ENT numéro, nombre pas, pas période, temps, nombre pas, pas période, 
temps. 





Cette instruction permet de faire varier la fréquence de l'instruction SOUND pendant 
son exécution. 
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Dans l'exemple ci-dessous, la période de 125 au départ devient : 125+100*2 


2449 ENT 1,194,2,3 ? 199 Pas de 2 Pendant 3/189 sec 
2414 SOUND 1:125,394.15,9,1 


Dans l'exemple ci-dessous, la période augmente pendant 50*3 centièmes de seconde 
et diminue pendant 50*3 centième de secondes. 


2908 ENT 1: 59,2,3, 54, -2,3 
2619 SOUND 1,25,369,15,9.1 ? 3 sec 


Exemples divers : 
© Génère des sons aléatoires. 


15 SOUND 1,RHDé 124499, 3,15 
26 GÜTO 16 


O0 Tir de laser. 


Pre laser 
1 FOR F=1 TO 194 STEF 5 
24 SOUND 1,P,1 
35 HEXT P 


0 Sirène de pompier. 


FU ==snsssss Pompier 
29 SOUMHC 1,299,56 

38 SOUHD 1,195, 59 

49 GOTO 29 


0 En appuyant simultanément sur A, S et D, la note “DO” est jouée avec 3 octaves 
différentes. 
15 ‘— joues sur 3 canaux une note sur 3 octaves avec touches À,5,D 


39 ‘ aPPuyer sur À seul,5 seul,D seul 
49 * Puis À et 5 similtanement 
(4 ‘ 


sl) 

66 nt=4r3 ? p 
‘à d=5 * dure 
29 


39 IF IHKEY<632=9 THEN SOUHD 1,nt,d 
169 IF INKEYS692)=9 THEN SOUHD 2,nt/2,d 
119 IF INKEY{612=9 THEN SOUHD 4,nt/4,d 
129 GOTO 34 


SQ (canal) 





Donne l'état d'un canal. 
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Bits 0,1,2 : nombre de places libres 
: Synchronisation A 

: Synchronisation B 

: synchronisation C 
:attente 

: canal occupé 


Non BO 


0 Ci-dessous, 132 représente la somme de 128 (canal occupé) et de 4 (nombre de 
places libres). 


Lee ? 1 seconde 


132 132 132 132 ....., 4 4 4 4 
0 Le programme suivant joue sur le canal 1 pendant une seconde puis sur le canal 2. 


— frequence 1999 sur 1 Puis frejuence 599 sur 2 
Le SOUHC 1,125,194 “ 1 seconde 
29 IF Sc 15 AUD 1282<>128 THEN SOUHDC 2,254, 199 :EMD 
39 GOTO 29 


ON SQ (canal) GOSUB n° ligne 


Provoque un branchement au numéro de ligne spécifié lorsqu'il y a une place libre dans 
le canal spécifié. 


15 SOUHC 1,125,209 
29 SOUNC 1,259,199 
Zi SOUHD 1,529,199 
22 SOUHD 1.1969,15a 
£3 SOUHC 1,2965,108 

24 SOUHC 1,4455, 159 

59 OH SC 15 GOSUB 5 

49 GOT 49 

ST 

24 PRIHT "Il 4 a une Place libre Pour le canal 1" 
SA FETURH 


RELEASE n° canal 


Libère un canal en attente. 
RELEASE 2 —+ 2 
RELEASE 3 ———— +2 
Exemples divers : 
0 Ci-dessous, des notes sont choisies au hasard. 
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10, nn MUSIQUE ALEATOIRE 


49 DATA 5274,mi 
59 DATA 5587, fa 
64 CATA 6271,s01 
79 DATA 7949, 1a 
88 DATA 79%2,s1 


164 FOR n=1 TO 7 
119 READ fin), x$ 


128 HEXT n 

139 ‘ 

149 nt=IHTE RNDE 1 247 2+1 ? note 
159 dAur=INT €RHDC12#68)+19 “ duree 
165 oEt=INTÉRHDE 1 243341 " octave 
175 


154 SOUHD 1.,125969/fCnt2#d4/oct.dur 
139 GOTD 149 


Les fréquences données dans le programme sont celles du niveau d'octave 4. On 
trouvera en annexe un tableau complet des fréquences pour les niveaux d'octaves 
allant de —-1 à 4. 


D Le programme ci-dessous joue une note frappée au clavier. À chaque touche cor- 
respond une note avec un niveau d'octave. La note jouée est de durée fixe. Nous 
avons augmenté le délai de répétition pour les touches afin d'éviter qu'une note ne 
soit jouée deux fois de suite malencontreusement. 


19 ( NOT UREE F 
19 Foce 3roeernr 20UE 1 NOTE À LA FOIS DE DUREE FIXE 


39 SPEED KEY 39, 28 

49 LOCATE 1,29:PRINT "4 w e r + y u OCTAYE 4" 
SL) LOCATE 1,21:PRINT "a s d f 9 h Jj OCTAYE 3" 
p0n"=resesreseenepen octave 

Fg vin Fé21:,c1$#<21) 

89 DATA 4126,d0,0, 4698,re, WU, 5274,mi,E 

98 DATA 35527,f3,R, 6271,s01,T, 7648,1a,Y 

199 DATA 7392,8i,Ù 

119." ==nmsresssemssesese octave 3 

125 DATA 2933, do,fA, 2343,re,5S, 263r7,mi,D 

159 DATA 27393,fa3,F, 3155,501;G, 3524, 13,H 

149 DATA 3951:si,J 

159 

15 FOR n=1 TO 14:READ fén3,x$, cl#Cni:f6n)=125098/FCNnD:MEXT n 
rpg "espere ee 

189 <$=IHKEYS:IF c$="" THEN 189 

139 c$=UPPERSE CS 2 

238 FOR i=1 TO 14 

219 IF S$=cl$ 1) THEN SOUHD 1,f<i3,15 

229 HEXT :i 

238 GOTO 189 


Le temps de recherche de la note correspondant à la touche frappée peut être supprimé 
en utilisant les valeurs ASCII des touches pour déterminer l'adresse de rangement des 
notes dans la table f(). 


1 
1 
1 
1 
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> FOR n=1 TO 14:READ F,x$,c$:FCASCCCH))=125000/F :MEXT n 
69 C$=INKEYS:IF c$="" THEN 1259 
36 c$=UPPERS(C CS 2 


219 c=ASCCc$): SOUND 1,fCc),15 


el 


235 GOT 159 


D Le programme ci-dessous permet de jouer trois notes de durée variable simultané- 
ment. Lorsque l'opérateur appuie sur une touche de façon permanente, toutes les 
commandes SOUND pour une touche pendant la durée d'une note doivent être 
envoyées vers le même canal. Un simple test de la disponibilité des canaux avec 


SQ 


19 


n'est donc pas suffisant ; une même note serait envoyée sur plusieurs canaux. 


mm JOUE 3 HOTES SIMULTAMEMENT sur canal 1 et 2 et 
MOCE Z:DEFIHT 3-z 
LOCATE 1,29:PRIHT "4 uw e Fr ?t y u octave 4" 
LOCATE 1,21:PRINT "a = dd ff 9 hi  j octave 3" 
annees octave 4 
DIM Fé21),cl<21),c(21) 
DATA 4186, do,67, 4698,re,59, S5274,mi,58 
DATA 5587,f3,59, 62F1,501,51, 794@,1a,43 
DATA 7902, si, 42 

mm mm octave 3 

DATA 2993,d0,69, 23493,re,64, 2637, mi,61 


CATA 2°93,f3,953, 3135,s01,5Z, 3529,13,44 
4 DATA 3951,s5i,45 
FOR ei TO 14:READ fénd,x$,cléni:fén 25099/FCNnD:MEXT n 
FOR i=i TO 14 
IF IHKEYCcICi22=9 THEH 239 
IF c(i3<29 THEN clibécéi)2=8:c i)=8 
HEXT i 
GOTO 179 
IF <Ci<59 THEH c=c(i):SOUND c,f<1),15:GOT0 299 
IF clib(12=9 THEN cCi=1:clibC12=1:SOUHND 1,f(i2,15:GOTO 299 
IF clib(23=9 THEN ci)=2:clib(2)=1:SOUND 2,fCi),15:GOTO 299 
IF clib(33=9 THEN ci=d:clibé32=1:SOUND 4,f<i),15:GOTO 299 


GÛTO 248 
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# TIME # REMAIN 
# AFTER « DI 

# EVERY us EI 
TIME 


Fournit le temps écoulé depuis la mise sous tension en 1/300 seconde. 
L'exemple ci-dessous affiche l'heure. 


19 mn hor lose 
24 CLS 

39 h=TIME 

45 LOCATE 1,22 

59 PRINT (TIME-h3/595 
53 GÜTO 45 


L'exécution différée ou périodique de sous-programmes se programme avec les ins- 
tructions AFTER (APRES) et EVERY (CHAQUE). C'est BASIC qui gère les chrono- 
mètres associés aux sous-programmes. 


AFTER temps, n° chrono GOSUB n° ligne 


Provoque l'exécution d’un sous-programme spécifié après le temps spécifié en 
1/50° de seconde. Ci-dessous le message “COUCOU” est affiché après 2 secondes. 


Le numéro de chrono spécifié doit être compris entre 0 et 3. En cas de conflit d'exé- 
cution, c'est le chrono 3 le plus prioritaire. 
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19 ’-—------—- AFTER 

29 MOCE 1 

39 AFTER 195,4 GOSUE 939 " aPres 2 secondes 
ETS) + 

59 LOCATE 1.Z2:PRIHT i:i=it+i:GOTO 564 ‘ boucle d'attente 
59 END 

Qi 


99 LOCATE 1,2Z:PRINT "coucou" 
189 RETUFH 


EVERY temps, n° chrono, GOSUB n° ligne 


Provoque l'exécution périodique du sous-programme spécifié. Ci-dessous, l'heure est 
affichée toutes les secondes. 


15 
2ÿ 
3ÿ 
49 
99 
(15) 
rÿ 
59 


35 


l'a ne men on si Cru E mn E R “ 

MOCE 1 

hAzTIME * heure dePart 

EVERY 59,9 GOSUB 93g * toutes les secondes 
GOT 69 ? boucle d'attente 
EHD 

ie ant afficha3e heure 

LOCATE 1,22:PRINT IHTCCTIME-Hhd 21-348 5 


165 RETURH 


Ci-dessous, un danseur est représenté dans quatre positions. 


19 MODE 1 

29 EVERY 69,9 GOSUB 144 ? 3 secondes horloge 9 
39 EVERY 299,1 GOSUB 119 * 14 secondes horloze 1 
4ÿ * 

94 FOR c=243 TO 251 * 4 Positions 


64 LOCATE 29,15:PRINT CHA$éc) 

79 SOUHC 2, INTÉRHD#169 +59, 24 

59 MEXAT « 

33 GOTO 55 

199 chrono 1 

119 LOÜCATE 13,15:PRINT "smurf dance" 
129 RETURN 

139 chronos 9 

149 LOCATE 13,15:FRINT "SMURF DANCE" 
159 RETURH 


Toutes les 3 secondes, un message est affiché en majuscules. Toutes les 10 secondes, 
le même message est affiché en minuscules. 


REMAIN (chrono) 


Annule le chronomètre spécifié et donne le temps qui restait. 


PRINT REMAIN(O) 
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DI 

Annule les interruptions jusqu'à ce que l'instruction “El” soit exécutée. 

Ceci permet de “protéger” une partie de programme contre les interruptions intempes- 
tives qui provoqueraient par exemple une modification de la position du curseur gra- 
phique si le sous-programme d'interruption exécuté n'a pas prévu de restituer le curseur 
graphique dans l'état où il l’avait trouvé. 


Si le programme principal et un sous-programme d'interruption utilisent une ressource 
commune (imprimante par exemple), DI permet d'éviter des conflits. 


EI 


Autorise les interruptions annulées par DI. 
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SÉQUENTIELS 


m OPENOUT # LINE INPUT #9 
# OPENIN m CLOSEOUT 

= PRINT #9 # CLOSEIN 

m INPUT #9 # LINE INPUT #9 
m EOF # WRITE #9 


Les instructions d'écriture et de lecture des fichiers séquentiels sur cassette sont ana- 
logues à celles de l'édition et de la lecture au clavier (PRINT et INPUT). Les informa- 
tions transitent par une mémoire tampon. 


OPENOUT nom-fichier 
OPENIN nom-fichier 


Un fichier est ouvert en écriture par OPENOUT et en lecture par OPENIN. 


PRINT # 9, variable 
INPUT # 9, variable 


PRINT # 9 écrit la variable spécifiée sur cassette. 


Le programme ci-dessous écrit les deux variables NOMS et TPHS sur cassette en les 
séparant par des retour-chariot. 


36 OFENOUT "FICH" 

4a * 

98 IMPUT "Nom Cou FIN) ";nomg 

68 IF nom$="FIN" THEN CLOSEOUT : GOTO 128 
78 INPUT "TelePhone ";tPh& 

80 

98 PRINT #3, nom& 

198 PRINT #9,tPh#$ 

119 GOTO 55 
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Pour lire les enregistrements, on écrit : 


189 IHPUT #3,nom$ 
193 INPUT #3, tPh$ 


On peut également écrire : INPUT # 9,NOMS$, TPHS. 


ATTENTION : 


19 PRINT #3,nom% 
28 PRINT #3,tPh$ 


ne doit pas être remplacé par : PRINT # 9, NOM$, TPHS ; les valeurs seraient seule- 
ment séparées par des espaces et seraient considérées à la lecture comme une seule 
valeur. 








R R R 
DUPONT 044.22.63 MARTIN 955.19.01 
C C 








Avec INPUT # 9, une virgule dans une chaîne est considérée comme séparateur. Par 
conséquent, les chaînes comportant des virgules doivent être écrites par WRITE # 9 
ou être lues par INPUT # 9 qui ne considère comme séparateur que le retour-chariot. 


EOF 


EOF teste la fin d'un fichier en lecture. Cette instruction doit être programmée avant la 
lecture par INPUT # 9. 


168 IF EOF=-1 THEN CLOSEIHN:END 
176 ? 
188 INFUT #9, nom$ 


CLOSEOUT 
CLOSEIN 





CLOSEOUT provoque le transfert sur cassette de la mémoire tampon. 


CLOSEIN ferme un fichier en lecture. 


LINE INPUT # 9, chaîne 





Lit une chaîne de caractères dans un fichier en ne considérant comme séparateur que 
le retour-chariot (code 13). La virgule n'est pas considérée comme séparateur. 
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WRITE # 9, variablel, variable 


Ecrit les valeurs en les séparant par des virgules. Les chaînes sont placées entre 
guillemets. 


189 rue$="11,rue NOBEL'":mt=164553 
119 URITE #3rue$, mt 





“11,rue NOBEL”, 164 553 





Les chaînes comportant des virgules peuvent ainsi être lues par INPUT # 9. 














Le programme ci-dessous crée un annuaire téléphonique et le lit. 


19 -=s-sesessses fichier 
PUS TERRES PSS nee ecriture 
36 OPEHOUT "FICH" 

48 * 


59 INPUT "Hom ou FIH5 "inom$ 

68 IF nom$="FIH" THEN CLOSEOUT : GOTO 15@ 
79 INPUT "TelePhone "itPh$ 

29 * 

99 PRINT #3,nom# 

194 PRINT #9, tPh$ 

119 GOTO 5G 

109 ’----————_——-———- lecture 

139 PRINT "Fembobinez" 

14G OFEHNIH "FICH" 

159 ‘ 

163 IF EUF=-1 THEN CLOSEIH:ENC * fin de fichier? 
179 ‘ 

159 INPUT #3, nom 

198 IHPUT #3, tPh$ 

269 PRINT nom$.tPhS$ 

215 GDTO 159 


Ready 

run 

Nom (ou FIN) 7? DUPONT 
Téléphone 7 044-22-63 
Nom (ou FIN) ? MARTIN 
Téléphone 7 999-88-77 
NOM (ou FIN) ? FIN 

Press REC and PLAY then any key : 
Saving FICH block 1 
KRembobinez 

Fress FLAY then any key : 
Loading FICH block 1 
DUFONT 044-22-635 
MARTIN 999-88-77 


Le programme ci-dessous sauvegarde une table sur cassette. 
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JU fasses ses SAUVEGARDE D'UHE TAËLE 
29 DIM A(296) 
34 OPENOUT "TB" 


FÜR 1=1 TO 269 
AC ID=I 
PRIHT #3,AC1I2 
MEXT I 
CLOSEOUT 
ne PO EE DÉS DE ulc EE lecture de la table 
G OPENIH "TB" 
A FOR I1=1 TO 299 
9  IMPUT#3,AC1) 
G PRIHT ai) 
ä MEXT I 
3 CLOSEIN 


mé héhes be pe LO Où —j M CA 
DALOMIeR DORE 


Un programme sauvegardé en ASCII peut être lu comme un fichier séquentiel. 
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GRAPHISMES 


Tracé d’un dessin par segments de droites 
Dessinateur 

Tracé d'un dessin défini en DATA 
Géographie 

Tracé d'un dessin en relatif 

Rotation d'une figure 

Squash 

Tracé de courbe 

Histogramme 

Histogramme 3D 


O0O00O00000CU 


GESTION 


o Saisie d'écran 

0 Fichier d'adresses 

O Gestion de fichier automatique 
O Bibliothèque 
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GRAPHISMES 


TRACÉ D'UN DESSIN PAR SEGMENTS DE DROITES ET 
DIGITALISATION D'UN DESSIN 





Le programme ci-dessous permet de déplacer un curseur à l’aide de 4 flèches 7 |, 
et de tracer des droites entre ces points. 





2 Pour “valider” le premier point, nous appuyons sur “V”. | .. 
Pour tracer une droite entre le point courant et le point valide précédent, nous 
appuyons sur “D”. 

















1 point 
2° point 
D 


V pour valider premier point 
pour tracer 


Le programme permet également de “digitaliser” un dessin : 





Nous collons sur l'écran une feuille transparente sur laquelle a été décalquée la 
carte de France par exemple. 

Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, nous 
“validons” les points. Les coordonnées X et Y des points s'affichent alors à l'écran. 




















19 ‘----------- TRACE PAR SEGMENTS DE DROITES 

29 ce=l:cf=ÿ 

2ÿ MOCE 1 

45 INK G:26:IHK 1,9:PAPER G:PEH 1 

SG LOCATE 1,2S:PRIHT "PREMIER POINT:fleches puis ‘we 

63 LOCATE 1,Z21:PRINT "AUTRES FOINTS: fleches Puis ‘D'" 

79 x=200:y=200 | 
ne CURSEUR CLIGHOTANT a 
39 t=TESTÉ x, y) 

19 * 

119 cH=INKEYS: IF ci" THEH 160 


I 

128 PLOT x,9,ce 

PLIT x:9,cf 
149 GOT 114 
154 ‘ 
169 PLOT x,9:t 
179 c=ASCCES 
175 c$=UPPERSC c$ 
189 IF C=242 THEH x=*-£ 
198 IF C=243 THEN X=x+2 
z69 IF C=249 THEH ‘“="+2 


[en 
C2 
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219 IF C=241 THEN Y=7-2 

229 LOCATE 1,17:PRINT c$ 

238 1F Cé=""" THEH PLOT #,%,CE:GOSUB 274: 4A=4:"%A=T 

249 IF C$="D" THEH FLOT 44,TA,CE:GOSUB 279:DRAU X%,Y,CE:"%A=Y: 
AAS# 

254 GOTO 39 

268 ?--------- AFFICHAGE 4,Y 

279 LOCATE 1,14:PRINT 4;%:RETURH 


DESSINATEUR 


Ce programme “dessinateur” permet de représenter des droites, des rectangles pleins, 
des cercles pleins ainsi que des triangles pleins. 


Pour dessiner une droite par exemple, il faut appuyer sur “V” pour valider le premier 
point puis déplacer le curseur avec les flèches (—, <—, |, f) et appuyer sur “D” pour 
obtenir le tracé entre les deux points. 


D 
3° point 


V 
er A 
1% point 2° point 


Un cercle se représente en appuyant sur “V” pour définir le centre, puis en déplaçant 
le curseur jusqu'à un point de la circonférence et en appuyant sur “C” pour le valider. 
Le tracé du cercle est alors effectué. 





C pour la circonférence 


V 


pour le centre 
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Le triangle plein s'obtient en appuyant sur “V” pour définir les deux premiers sommets, 
puis sur “Y” pour le troisième sommet. 


V 
2° sommet 


Y 
1 sommet 3° sommet 


La droite YV (1° sommet) pivote pour “remplir” le triangle. Ce triangle plein permet de 
“remplir” un certain nombre de figures, comme le montre l'exemple du cube, et rem- 
place ainsi partiellement l'instruction “PAINT” qui existe sur d’autres matériels (MSX 
eg.). 


En utilisant la couleur de fond “F” et “R”, il est possible d'effacer des parties coloriées. 
Attention, le curseur disparaît sur une zone non coloriée ; pour le faire apparaître, 
frappez 1 ; 


Pour tracer des figures discontinues, utiliser “V”. 


Pour sauvegarder l'écran graphique, faire : 
SAVE “DES”,B,&C000,&4000 


LOAD “DES” permet de lire le dessin sauvegardé. 


Ces instructions peuvent être insérées dans le programme : 


855 IF C$ = “S” THEN SAVE... 
356 IF C$ = “L” THEN LOAD... 





[es 
PREMIER POINT:fleches puis ‘U? 
SEME POINT: fieches Puis: 
RE Hits les 2 ARR) 
:cercle riangle pour nès 
COULEUR: 1,2,3 : FOND FLOMMERS 


Le signe “A” représente la flèche “1” 
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129 C'ESSIHATEUR 

28 ce=l:cf=9 * coul ecriture et fond 
29 INK D,26:INK 1.G:FAFER cf:FEH ce *? fond blanc/encre noire 
49 SPEED KEY 19,3 ? rePetition raPide 

59 MOCE 1 


68 LOCATE 1,29:PRIMT "PREMIER FOINT:fleches puis ‘Y°" 

79 LOCATE 1,21:FRIHT "2EME FOINT: fleches puis:" 

&6 LOCATE 3:22:PRIHT "D:droite R:rectangle" 

369 LOCATE 3,22:PRINT "C:cercle Yitrian3le(V Pour 2 Points)" 
199 LOCATE 3,24:PRIHT "COULEUR: 1,2,2 F:FOHD <GOMMER 2" 

119 LOCATE 3,25:PRINT "A:annulation derniere droite" 


129 xa=290:y3=508 * Point Precedent 
139 xb2xa:9b=923:x=xa+2G:u=ua 

149 CURSEUR CLIGHOTANT 

159 t=TEST x, 4) 

1698 1 


179 CH=IHÉEYS:IF cH#<>"" THEH Z1g 
159 PLÛT x:1,ce:PLOT x:y,cf 
199 GOTO 179 
210 PLOT x,90t 
229 c=ASCi ch) 
239 IF C=242 THEH IF x>2 THEN X=4-2:GOTO 154 
£4@ IF C=243 THEH IF x<638 THEH X=#+2:GOTO 154 
259 IF C=24ÿ9 THEH IF 3<398 THEH Y=Y+2:GOTO 154 
268 IF C=241 THEN IF 422 THEN Y=Y-2:GOT0O 159 
279 cH=UPPERSCCHOD: LOCATE 1,17:FRINT c$ 
288 IF C$=""" THEN FLOT x,y:ce:xbzxa:4b=ya:x3=x:y3=94 
299 1F C$="0" THEH PLOT x3,y3,ce:DRAU x, 4:ce:xb=xa:9b=93:u3=u: 
Xa=*X 
239 IF C$="C" THEN GOSUE 428% 
319 IF c$="R" THEH GOSUB 389:x3=x:yaz=y 
329 IF c$=""" THEN GOSUE S19:xb=xa:ub=y3:xa=x:93= 
336 IF <$="4" THEN FLOT xb,9b:DRAH xa3,9a,cf:x=xbiy=gbixa=xbiua 
=yb 
349 IF C$="F" THEH CE=9 
359 IF C$>2="9" AND C$<="9" THEH CE="YALS CS) 
269 GOTO 159 
379 rectangle Plein 
389 FOR y91=93 TO 4 STEF SGHCy-93 0) 
339 PLOT xa.:91,ce:DRAU x:41,ce 
494 HEXT 1 
418 RETURH 
AY Cercle Plein 
439 r=SDREÉ xa—x 19240 yay 12 :ir2zrt2 
443 FOR dxz-r TO r 
459 en 


2 
6 


469 PLOT xa+dx.ua+ds,ce:DRAN x2+4x,43-dy,ce 
479 MEXT dx 

489 RETURH 

499 trian3le Plein 


598 ? valider 2 Points 3vec ‘V* Puis Un troisieme avec ‘’Y" 
519 dA=SCRECub-u a 19246 xb-xa 372 7 

528 IF d=9 THEH RETURH 

539 cx=(xa-xbi/d:cu=tua-Jb5/d 

54 FOR dd=ÿ TO d STEP 4.5 

299 x2=xb+dd#cx:y3=ub+dd#cs 

569 PLOT x,y,ce:DRAU x3,33,ce 

579 MEXT dd 

559 RETUPH 
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TRACÉ DE DESSIN DÉFINI EN DATA 


Le programme ci-dessous trace un figure en reliant entre eux des points définis en 
DATA. 


FD memes ses carte de france 
24 MOCE 2Z:IHE G,1:INK 1,Z24:PAFER G:PFEH 1 
39 DATA 276,3 3rÿ 

45 CATA. 323,342, 338.318, 350.209 
24 CATA 366,264, 364,24, Sd, 234 
6 DATA 372,234, 3r6,c4g 256,244 
rg CATA 35723,226, 354,264, 354,196 
89 DATA 536.183, 496,156, 4HE,174 
39 DATA 584,166, 366,156, 252,166 
199 DATA 332,179, 315,164, 242.150 
119 CATA 346,136, 399. 132; 236, 148 
126 DATA 136,156. 2ÿ5,18 212,218 
155 DATA 206,236, ER 250, 174,272 
149 DATA 164,2 282, 146, 299: 132, , 299 
159 DATA 122,396, 169.319, 152,364 
169 DATA 198,392, 126,314, 154,334 
1r9 DATA 299,354, Z4,324, 222) 322 
154 CATA 234,322, 238,359, 242,334 
139 DATA 256,346, £6£: 362, 27e. 370 
AIS DATA 393.933 

219 

225 READ #43, 44: PLÜT x3,4a 

239 

z49 READ x. 

259 IF «=993 THEH END 

269 

279 CFA %x:4,1 

26 GOTO 24g 


Pour tracer une figure discontinue, nous spécifions une coordonnée fictive égale à 0,0. 


SA MOCE 1 

£a CATA 199,194 

79 CATA 159,169, 159.124 
89 DATA 9,4 

94 CATA 259,269 
199 CATA 255,299, 
119 DATA 939,993 
129 ‘ 

139 READ %x3,43 
148 PLOT x3, 43 
154 * 

169 READ %x,1 

179 IF x=2993 THEH EHD 

158 IF x=ÿ9 AND y=G THEH READ %x3,93:PLOT «2,92: GOT0O 169 
139 DRAU x, 

zA9 GOTO 169 


239,249 


? Premier Point 


GÉOGRAPHIE 


Nous proposons deux programmes de géographie. 
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0 Le premier affiche la position d’une ville et demande le nom de la ville. 






en 


Quelle ville ? PARIS - 
OK 4 






Q Le second demande de situer la position d'une ville. L'élève doit déplacer le curseur 
à l'aide des quatre flèches et valider la position avec “V”. Le programme calcule 
l'écart entre la position réelle et la position choisie. 


PARIS ? 


Position choisie 


Position exacte 


DY 


DX 


DISTANCE = SQR(DX*DX+DY*DY) 


Pour ce second programme, utiliser les lignes 10 à 400 du premier programme et 
ajouter les lignes 480 à 830 de la version 2. 


19 
A) 
39 
45 
54 
(15) 
rg 
55 
35 
195 
118 
125 
139 
145 
159 
166 
178 
154 
198 


MOCE 1 


INK G,4:IHK 1,Z24:PAPER D:PEH 1 
DIM 4V639 3, YUC56 3, SC 30) 


CATAH 276,379 
DATA 325,242, 
CATAR 234,266, 
DATA 372,234, 
DATA 378,226, 
DATA 336,188, 
DATA 384,166, 
CATA 332,179, 
DATA 26,136, 
DATA 196,156; 
DATA 296,236; 
DATA 164,222, 
CATA 132.346; 
CATA 133.352, 
DATA 299,334, 


393,318, 324,284 
264,248, G64, 234 
3r6,244, 356,249 
384,244, 384,136 

496,126, 496,174 
366,196, 352,166 

313,164, 298,159 


399,132, 256,143 


298,188, 212,218 
188,259, 174,272 
146,299, 132,299 
165,316, 182,344 
186,314, 184,334 
294,323, 222,322 


INTERROGATIOH GEOGRAPHIE 


HO 1 
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258 
219 
229 


DATA 2 
DATA &: 
DATA 3 


235 ‘ 
CATA 276,392, PARIS 
DATA 286,348 ,LILLE 
DATA 314,314,RE1IMS 
CATA 242,324,LE HAYRE 
DATA 196,328, CHERBOURG 
DATA 142,392,BREST 
DATA 126,238, RENMES 
DATA 126,264, HANTES 
DATA 239,254, POITIERS 
DATA 214,296, BORDEAUX 
CATA 336,214, L'YOH 

DATA 334,159, HYIGHON 
DATA 358,169, MARSEILLE 
DATA 999,939,2222 


248 
255 
268 
274 
2359 
239 
298 
319 
328 


= RD D y Din Era 


à Gin © D 


34,322, 233,330, 
56, 346, 262, 362) 


RERD x3:93:PLOT xa3:9a3:1 


READ x, u:1F x=999 THEN 459 
CDRAU %x,4,1 
GETE 419 


242,338 
276, 379 


Quelle ville 7 


RERD #s':w$:IF x=999 THEH 494 
SC nv = 


N'y= 


VAS PAUL PETER LION DE CRE 


GOTQ 458 


LA 


= IHTÉ RHDE 1 DH 2+1 


IF 


,=3 THEH 439 


EVE 

FLÔT xwcwigmé ts), 1 

LOCATE 5,29:IHPUT "Quelle 
$=IUPPERSC 8 

LOCATE 5,21 


IF 


FÜR tP=1 TO 2GGG:MEXT tP 
FLOT eu ge y 3, 

LOCATE 5,21:PRINT SPC 39) 
LOCATE S5,24:PRINT SPCC39) 
GOTO 438 


4 
, 


ajouter les instructions 10-479 du Programme Precedent 


x=276:y=5342 
SPEED KEY 19,2 


vs INTCRNDE 1 dk 2+1 


IF 


,=3 THEH 528 ELSE a3v=% 
A LOCATE 5,C9:PRINT "OU EST 


LOCATE 5.22:PRINT "Fleches 


L=TESTÉ x, 19 2 


c$=INKEYS: IF c$<>"" THEN 
PLOT x,y,1 


CL 


ville 


“$cyies$ THEH PRINT "OK " ELSE PRINT "HÜH ,C’ 


La 


SITUE 


PUIS 


659 


wille au hasard 


"VS 


ville au hasard 


HAL? 


3estion curseur 


LT " 


est 


Des”: 107 
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629 PLOT x,1,8 

634 GOTO 649 

649 ? 

659 PLOT xt 

668 ? 

679 c=ASCC CH) 

689 IF c=242 THEH x=x-2 

694 IF c=243 THEN x=x+2 

766 IF c=248 THEH y=3+2 

718 IF c=241 THEN y=35-2 

F2 * 

F36 IF Cé$=""/" OR C$="," THEH 764 

F4 GDTO 529 

PED ————————————— calcul distance 

F6 di=xse y )-x: dy = y y 

rr9 d=SGRé dxkdx+ds #4 2 

788 LOCATE 5,23:PRINT "Vous etes a:";d*%5 "Km"; SPCC1@ 02 
F39 PLOT xvCwy),9uCu2, 1:PLOT xwCuD+2, ywC y), 1 
259 FOR tP=1 TO ZOYG:HEXT tp 

819 LOCATE 5,24:PRIHT SPC<3a) 

829 PLOT xwiwi,usCuy), Q:PLOT xwCu)+2, yvCu), 9 
239 GOTO 525 


TRACÉ D'UN DESSIN EN RELATIF 


Une figure définie en coordonnées relatives (chaque point est défini par rapport au 
précédent) peut être représentée facilement avec une échelle. 


Er trace de la carte de FRANCE en relatif 


IH G,1:1IHK 1,24 
ech=f,5 * echelle 
xa= 248 : Jazz 


DU 
7 + 
= 
(ax 
C 
m 
En 


LA 
ut 


CATA 52,-25, 7H, 24: —15:-355 
CATA ÿ,-2ÿ, —15,-29;, 9, -5 
CATA 3.9, +6. 14.5 


CATA -5,:-14, bre 9, -5 
CATA 12,-8: 19,-2, g,-1Z 
DATA -22,-5, -15,-19, —14.15 
C'ATH 29,4:  —-14,-6, —1H,-14 
CATH -Z,-id4, D, 4, -64,15 
DATA -44,5, 12:32) 4, 34 
CATA -6,13, -13:14. —i4.22 
DATH -14,14, -13,5, 14.9 
CAHTA W,18, 36 4, 14, -5 
CATA dé -x, -12,1Z, 2, 2ÿ 
CATA 16:44, 4, 5: 13, -6 
DATA 12,4, 4,5: 4.5 
DATA 14,5, BE: 15: 14.5 
CATAH 333,293 


D Fa Fate pe de pot me de de pe po dt LA 0 me QT EL Ga Gt fre 
A Et LD OÙ =) OM Edo fo ee © © © GG © 





Ed 
PLOT x3:43 
4 


FEAC dx,dy:IF dx=399 THEN EHD 
DÉAUR echékdx, ech#ds. 1 
GOTD 275 


ORALE LU RELXE LA Lo GG TS M Gi D D GS GG © 


MISES ES 
ART EUT 
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Le programme ci-dessous convertit les coordonnées absolues en coordonnées relati- 
ves. 


LT Enr ese es nee enens Conversion 3bs0lu--irelatif 
29 CATA £F6,3rû 
39 CATH 325,342, 338,313: 359.254 
di CATA 329,264, 364,246, 34,234 
54 CATA 372,234, 376,248, 326, 245 
Ed ‘ suite carte de FRANCE 

34 DATA 393,933 

(] , 

14 READ x3,913 ? Premier Point 

34 FEAC %x,14 





(CCR CRUE LUN LCR LOC OCR LOC Lo 


Ps PQ Po Po Pi Po Pi Fo F9 me — 


IF x=33 THEN END 

OA dix xa : du = 13 

64 PRIHT #2,dx, du “ imprimante 
FH X3=x:4374 

54 GOTD 254 

52 —£E 

F3 -£4 
-13 35 

[al -£5 
-15 24 

fi —6 

5 [5] 

4 5 

15 G 


ROTATION D’UNE FIGURE 


Ce programme représente une figure définie dans la position demandée. 


19 é Presents ses rotation d'une figure 
£ 

38 MCE 1 

48 nP=7 ? noubre de Points 


59 DATA 269,255 
68 DATA-256, 295 
79 DATA 254,124 
39 DATA 229,129 
33 DATA 225,169 
199 DATA 245,169 
119 DATA 266,298 


129 

159 FOR i=i TO nP:'READ xCi2,YC1):MEXT i 

149 

159 xÿ=x< 12:49=y< 10 ? centre de rotation 
169 ‘* 


179 LOCATE 1,2:IMNPUT "Quel an3le(degre) ";a 
184 3=3#2*P1/369 

198 3=51IHC235:c=C0SC 3) 

248 FOR P=1 TO vP 

219 dx=xCtP xD: dy=yCP -y9 

224 xiCPD=xfG+dx*c+du#s 

23 J16P)D=10+dy#c-dx#s 
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249 NEXT P 

253 ce=1:GOSUE 289 
z6 GOTO 179 

CFO ‘mem mme £sPAam trace 
286 PLOT x1(1),4141),ce 

299 FOR P=2 TO nP 

393 DRAM x1(P),y16P3,ce 

319 HEXT P 

329 RETURH 


Quel angle(degre) ? xBreakx 
Break in 170 
Ready 





SQUASH 


Vous devez faire rebondir une balle à l'aide d'une raquette que vous déplacez avec les 
deux flèches — et —. 


Nous avons utilisé la fonction INKEY(n° touche) de façon à obtenir un déplacement 
rapide de la raquette. Avec INKEY$, le délai de répétition des touches devrait être 
modifié par SPEED KEY. 


J X1  X2 





XR,YR 
ES 
Fleches vour raquette 


<—Y2 
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Vi Genis nigierieine SQUASH 
20 CLS: INPUT "Niveau (1,23) "nv 
Nos ane dessin terrain 


4g MODE 1 

59 x2=13+nu%x2 

69 x1=2:y1=2:12=22 

F9 CLS 

59 LOCATE 1,24:PRINT "Fleches Pour raquette" 

39 FOR x=x1 TO x2:LOCATE x,Y1:PRIHT CHR$C143D:HEXT x 
149 FOR y=11 TO 32-1:LOCATE X1:4:PRINT CHR#&C143):LOCATE x2,y:P 
RIT, CHR$C 143): HEXT y 

119 

129 rb=9 * rebonds 

129 r3$=CHRSE 22 +CHR SC 143 2+CHRSGC 143 2+CHRSC 143 D+CHR EC 22) 
143 dx=1:duy=-1 

155 en ? balle 


169 xr=19:ur=y2 * raquette 

F5 LOCATE as 1o9r:PRINT r9$ 

1259 ‘mm mm mm deplacement balle 

199 LOCATE xb:3b:PFRIHT CHR#32)9 * effacement balle 
298 xb=xb+dx:ub=1b+d3 ? nouvelle Position 


219 IF 5b=uy1+3 THEN  Y9b=sb+IMTCRANDE#2 )#dy 

224 LOCATE xb:9b:PRIMT CHR$C2351) 

239 IF xb>=x£2-1 THEH dx=-dx * rebonds 

249 IF sb<s1+2 THEN dy=-dy 

254 IF xbéx1+2 THEM dx=-dx 

268 ‘ 

27 IF xbxr-2 AHD xb<xr+4 AND 9bèur-2 THEH dy=-dy :rb=rb+1 
254 

294 IF 4b>=YR THEN LOCATE 39,23:PRINT rh; "POINTS":GOTO 389 

399 ‘mm deP lacement raîuette 

319 FOR +tP=1 TO 1YN:HEXT tp 

324 ’ 

339 IF IHKHEY(15=89 THEN IF xr<x2-3 THEN xraxr+i 

349 IF IHKEYS82=9 THEH IF xr2x1+1 THEN xr=xr-1 

358 LÜCATE xr-1,9r:PRINT r9$ 

369 GOTO 154 
379 

289 FOR TP=1 TO 2AGGG:MEXT TP:GOTO 54 


TRACÉ DE COURBE 





Ce programme trace la courbe d’une fonction écrite en 400. Les échelles sont calculées 
par le programme. 
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ri -4,8149178 


19 ‘—-——————————-— race de courbe 
A5) MODE 2:PAFER 8: FER 1 
39 IHK G:1:1IHK 1,24 
48 hecr=30608:1lecr=594 “ hauteur /larSeur ecran 
59 INPUT "Borne #1 "ibl 
6 INPUT "Borne #42 ";b2 
F INPUT "Pas ";iP3S:IF Paz=9 THEN Pa35=09,1 
BD recherche mini-/maxi 
29 x=b1:GOSUB 499:y1=4:y2=1y 
184 FOR x=b1i TO b2 STEP Pzs 
115 GOSUE 494 
IF y<y1 THEH 41=3 
133 IF 9242 THEH 32=y 
149 HEXT %x 
159 ex=lecr/(b2-b1)2 * echelle x 
169 es=(hecr 2/CYa de 
PQ ‘————“mm——— y 
128 IF b2:=9 AHD b1<2=0 THEH x=-ex#b1i:PLOT x, 1:DRAU x,hecr, 1 
1299 axe x 
294 IF J2»=4 AND 41<=9 THEN y=-51%#ey:PLOT 1,49:DRAU lecr,y 
219 mm m———— courbe 
224 FOR xzbi TO b2 STEP Paz 
238 GOSUB 449 
E4ÿ sx=z(x-b1)#ex:sy=(uy-410*ey 
254 PLOT 2x,29,1 
268 MEXT x 
270 ‘mm mme affichage extremez 
259 y=-31#ey+12:x=12:b=b1:GOSUE 349 
299 y=-31#es+12:x=lecr :b=b2:GOSUB 349 
399 4=12:4x=ABS b1)4ex:b=31:GOSUE 349 
319 s=hecr : x=AESE b1%#ex:b=y2:GOSUB 349 
329 EMD 
338 ‘-—- 
349 IF x>lecr THEH x=lecr/2 
359 IF s>hecr THEH 3=hecr/2 
260 FLOT %x,1 
278 THG:PRINT B; 
354 RETURH 
999 courbe a tracer 
499 VY=SIMCHIKX 
419 RETURH 
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HISTOGRAMME 


Ce programme d'histogramme calcule l'échelle automatiquement. 


700 706 





JV LV mrs avr mai Jui Jjuil 


19 = HISTOGRAMME 

29 MODE 2 

39 INK GS, 1:IHK 1,24:PAPER B:FEN 1 

43 nm=7 ? nombre de mois 


59 DATA jiy,544, fy,498 
68 DATA mrs, 669, avr,769 
79 CATA mai,694, jui,548 
23 DATA juil,799 


99 ’—- 

189 FOR..i=1 TO nm:READ mois i),wvnteci):MEXT i 

119 ‘ 

129 xa=29:uy23=39 ? depart axes 

154 ix=59 * intervalle * 

149 hecr=389 ? hauteur ecran 
150, messes smmmmmmemnsmmms recherche maxi 


169 mx=vnte( 12 
179 FOR m=2 TO nm 
159 IF vntetmi>mx THEH mxzwntecmo) 


198 HEXT m 
298 ech=hecr/mx * echelle 
219 mm axes 


229 PLOT X3,:Y3:DPRAH xa+nm#ix, ua, 1 

230 PLOT %X23,Y3:DRAU xa,hecr+ya,1 

2AQ, mn eee near enr open pan Ste om affichage mois 
259 FÜR m=i TO nm 

268 x=xa+8+ixXCm-1):y=433-12 

27 PLOT x,Y:TAG:PRINT mois$Cm); 


299 mm mm courbe 
388 FOR m=1 TO nm 

318 xi=xa+10+ix#0m-1):431=93+0ntetmikech 

32 FÜR dx=9 TO 5 

338 PLOT x1+dx,43:DRAU xi+dx,11:1 

3489 MEXT dx 


969 ’----——_ mm affichase valeurs 
— 
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3798 FOR m=1 TO nm 

3389 y=yatynte(mi#ech+16 

339 x=xa+ix#(m-12-19 

499 PLOT %x,9:TAG:PRINT wvntecCm); 
419 MEXT m 


HISTOGRAMME 3D 


Ce programme d'histogramme en trois dimensions, écrit sur AMSTRAD, s'adapte sur 
tout matériel disposant du graphique haute résolution. 


Pour un matériel disposant de l'instruction BOXF (boîte pleine), tel que le MO5 ou MSX, 
le programme devient plus simple. 


298 
219 


xd=50 : y d=509 ? 
13=39 * lar3eur 
4 


nn histosramme 3D 


origine 


pr=19 
ityv=35 
, 


4 


Profondeur , 
intervalle batons E 
nh=S * nombre de batons 


60 





hé 12=48 
hé29=359 
hé 35=59 
hé 4 3=19 
h£52=65 


‘ 


10 
59 





40 


FOR h=nh TO 1 STEP-1 
xb=xd+Ch-12*ity * origine baton 
Jb=ud+éh-10%kity 
FOR dx=i TO pr ? 1 baton 

PLOT xb+dx, 3b+dx+héh), 1 

IF dx>1 THEN PLOT xb+dx+19,4b+dx, 1:DRAU xb+dx+19,u4b+dx+h 


Ch),1:GOTO 259 


225 
239 
24 
258 
268 
278 
288 


FÜR di=1i TO 13 * rectangle 

PLOT xb+dx+d1, u4b+dx, 1:DRAU xb+dx+d1,sb+dx+hé hi, 1 
MEXT di 

PLOT xb+dx+1,5b+dx+hCh)2:DRAU xb+dx+19,3b+dx+héh), 8 
HEXT dx 
PLOT xb+dx-1,3b+dx+héh5, 1:DRAU xb+dx-1+19,u1b+dx+hCh, 1 
TAG: PLOT xb+39,9b:PRIHT hCh); 


299 HEXT h 
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GESTION 


SAISIE D'ÉCRAN 


Une saisie d'informations avec l'instruction “INPUT” ne permet pas de positionner sur 
une zone qui aurait été mal documentée. Le programme suivant le permet. Il utilise la 
fonction INKEY$. En outre, les caractères frappés au clavier peuvent être contrôlés 
dès leur introduction, sans attendre la frappe de ENTER. 


NOM DUPONT 
PRENOM JERN 

RUE 11,RUE NOBEL 
VILLE 


flèche haut pour 
zone arrière 





JU ressens saisie dans une table FICH&C ) 
20 MODE 2 L 
38 nrub=4 * nombre de rubriques 


49 nrub&(12="NHOM" 
59 nrub$<2)="PRENOM" 
68 nrub$t3)="RUE" 
Fr nrubg$c42)="Y/ILLE" 


98 GOSUB 139 
194 PRINT:FÜOR ln=i TO nrub:PRIHT fich$eln):NEXT ln 


129 ‘mmmmemenmmmmmm mm sous Programme saisie 

138 CLS. 

148 LOCATE 1,28:PRINT "fleche haut Pour zone arriere" 

158 FOR ln=1i TO nrub 

169 LOCATE 1,ln+1:PRINT nrub$c ln) 

179 LOCATE 19, ln+l:PRINT fich# ln) * ancienne valeur 
189 HEXT In 


288 FOR 1n=1 TO nrub 

219 x3=19:3s=1ln+1 

226 GOSUE 329 

239 IF r=i THEN fich$(lni=1i95% 

249 IF r=3 THEM IF 1n>1 THEM LOCATE x2,y2:PRINT #fich$(ln):ln= 
ln-1:GOTO 218 ELSE 219 

259 LOCATE xs,YS3:PRINT fich$c ln); SPC<ZG-LENC F ich$c ln) 

268 HE*XT ln 

279 PRINT:FOR ln=i TO nrub'PRINT fich#cIln):HEXT ln * Pour te 
st 


— 
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259 EHC 

En EC SONT eo 2 EPam 2aisie dans 119% 

368 ‘* R=3 zone arriere 

319 ’ 

329 1i23$="" 

339 ?’ 

348 13=LENf 119$):LOCATE xs3+19,YS:PRINT CHR$C143) -’ 143:curseu 


r 
358 LOCATE x2+13,1s 


369 

379 c&=INKEYS:IF c$="" THEN 379 * attente fraPPe 

388 c=ASC<CS) 

339 

409 IF c<>127 THEN 434 “ code suPPression 
419 IF 19>9 THEH 11i3$=LEFTS# 119%. 13-1):PRINT EHR#(32): GOTO 349 
ELSE 3459 

429 ‘ 

439 IF c=13 THEN 569 * code ENTER? 


449 IF c=249 THEM r=3:LOCATE xs+19,ys:PRINT CHR&C322: RETURN 
458 IF c<32 OR c>127 THEN PRINT CHR#7 ); :GOTO 379 


468 1i93$%=1i9$+c$ “ ajout caractere fr 
apPpe 

479 PRINT c$ * affichage caracter 
2 fraPPe 

489 GOT) 5489 

499 ’ 


599 LOCATE x2+19,45:PRINT CHR$C32) 
519 IF 1i9$<>"" THEH rzi ELSE r=2 
529 RETURH 


FICHIER D’ADRESSES 


Le programme ci-dessous permet d'introduire et de modifier des données indépen- 
dantes du programme. Elles sont temporairement stockées dans des tables qui sont 


ensuite sauvegardées sur cassette. 
NOMS$() RUES () VILLES() 


DUPONT RUE XXX 
RANG — MARTIN RUE XXX 


DOMFRONT 


BREBION 


BREBION RUE XXX 








BAYEUX 





N} Sauvegarde 





NOMS() RUES () 
La variable “RANG” donne l'adresse de rangement dans les tables. 


Le mode “C” permet à la fois de créer et de modifier des fiches. 


En mode modification, la valeur de chaque zone est affichée puis le programme attend 
une nouvelle valeur. Si vous ne voulez pas modifier une zone, appuyez sur “ENTER” 


sans entrer de valeur. 
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L'utilisation de l'instruction LINE INPUT (au lieu de INPUT) permet d'introduire le ca- 
ractère virgule dans les zones. 


L'instruction 300 peut être remplacée par : 
300 IF NOM$=LEFT$S(NOM$(RANG),LEN(NOMS)) THEN 380 


On peut ainsi entrer seulement les premières lettres du nom. 


Pour obtenir une liste triée par noms, nous remplissons une “table des Clés” CLES() 
avec les clés à trier. 


Dans une “table d’index” IX%() nous rangeons les numéros de ligne (1, 2, 3...). 




















CLES () IX () NOMS( ) RUES 
DUPONT 1 DUPONT LL» RUE XXX 
MARTIN MARTIN L> RUE XXX 
BREBION BREBION  L> 

4 








0 Nous trions les tables CLES() et IX%() 
CLES( ) IX ( ) NOMS ) RUES ) 


BREBION et 3 DUPONT EE RUE XXX 


DUPONT MARTIN Le RUE XXX 


MARTIN FE BREBION RUE XXX 


0 Après le tri, il suffit de lire la table IX%() pour éditer les adresses dans l'ordre des 
noms. 

















Ces tables n'ont 
pas été modifiées 





TRI-SÉLECTION 


Pour obtenir la liste triée des personnes d'une seule ville il suffit de sélectionner les 
noms ainsi : 


1140 INPUT « Quelle ville », V$ 
1180 IF V$<> VILLES(F) THEN 1200 
TRI-MULTICRITÈRES 


La liste alphabétique des clients dans l'ordre des villes s'obtient en faisant : 
CLES$(F) = VILLES(F) + NOMS$(F) au lieu de CLES$(F) = NOMS(F). 
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CLES () 












Suppression : 


Pour Supprimer une fiche, nous décalons toutes les fiches en aval de la fiche suppri- 
mée. 


20 
30 
40 
1 
60 
70 
80 
90 
100 
110 
120 
130 
135 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


2B0 


NOM$ NOMS 









DUPOND 


ROULET 


MARTIN 


DUPOND 






Fiche supprimée 


MARTIN 


APRÈS 


> 





AVANT 
Si vous n'effectuez qu'une sauvegarde, faire : 
160 IF M$="FIN" THEN GOSUB 500:END 


NAS SSSR ess-ses fichier d'adresses 

MODE 2:PRINT "CLAVIER MAJUSCULE" 

DIM NOM#(100) ,RUE# (100) ,VILLE#(100),CPST#(100) 

DIM CLE#$(100),IX2(100) 

NFICH=0 ‘ nombre de fiches 

INPUT "NOUVEAU FICHIER (O/N)";R#$:1IF R$="0" OR R$="o" THEN 90 
GOSUB 680 


CLS:PRINT "MODES: ": PRINT 

PRINT TAB(3) "C: CREATION/MODIFICATION" 
PRINT TAB(S) "LF: LISTE DU FICHIER" 

PRINT TAB(3) "FIN: FIN DE SESSION(SAUVEGARDE)" 
PRINT TAB(3) "LFN: LISTE DU FICHIER PAR NOM" 
PRINT TAB(3) "LFV: LISTE TRIEE PAR VILLES" 
FRINT:INPUT "MODE "5; M$: M#$=UPPERS(M#) 

IF M$="C" THEN GOSUB 230 

IF M$="FIN" THEN GOSUB 500:END 

IF M$="LF" THEN GOSUB Bi0 

IF M$="LFN" THEN GOSUR 930 


IF M$="LFV" THEN GOSUB 1210 

IF M£="S" THEN GOSUB 1450 

GOTG 90 

szz==========2====2=2=2=22=====2===se=222= creation/modificatior 
PRINT 


PRINT "<ENTER?> pour fin de mode" 

PRINT "<ENTERS pour zone inchangeelen modif)":PRINT 

LINE INPUT "NOM (ou <ENTERà) ? ",NOM$:IF NOM$="" THEN RETURN 
‘ pas d'espace entre "" de IF NOM$="" 
IF NFICH=0 THEN 330 — 
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290 FOR RANG=1 TO NFICH 


300 IF NOM$=NOM$(RANG) THEN 380 ‘ nom existe t-il? 

310 NEXT RANG 

D29 "=== nouveau nom 

330 PRINT :INPUT "NOUVEAU NOM OK (CD/N) "3R#:IF Rté>"O" AND R$t<>" 
o" THEN 230 


340 NFICH=NFICH+I 
350 RANG=NFICH 
360 NOM# (RANG) =NOM$# 


370 ‘mm entree/modification zones 
380 PRINT 
390 PRINT RUE$(RANG):;TAB(15); " ancienne valeur 


400 LINE INPUT "RUE? ",RUE#:IF RUE#$C>"" THEN RUES (RANG)=RUE# 
410 PRINT VILLE#$(RANG):;TAR(15); 

420 LINE INPUT "VILLE? ",VILLES# 

430 IF VILLE$<>"" THEN VILLES$(RANG)=VILLES 
440 PRINT CPST#$(RANG);TAB(15); 

450 LINE INPUT "CODE POSTAL? ",CPST# 

460 IF CPST$<}"" THEN CPST$(RANG)=CPST# 
470 GOTO 230 

490 ‘=============2=========-2===2==3-=== sauvegarde 
900 OPENOUT "ADR" 

910 ‘ 

920 PRINT #9,NFICH 

J30 FOR F=1 TO NFICH 

940 PRINT #9,NOM$(F) 

9930 PRINT #9,RUE#(F) 

d60 PRINT #9,VILLES#(F) 

9/70 PRINT #9,CPST#(F) 

9380 NEXT F 

990 CLOSEOUT 

800 RETURN 

670 ‘==2s22z==22z2222=2222=2=22=222=2=2=2=2222e= lecture fichier 
680 OPENIN "ADR" 

690 

700 INPUT #9,NFICH 

710 FOR F=1 TO NFICH 

72 LINE INPUT #9,N0OM#(F) 

730 LINE INPUT #9,RUE#$(F) 

740 LINE INPUT #9,VILLE#(F) 

750 LINE INPUT #9,CPST#(F) 

760 NEXT F 

770 CLOSEIN 

780 PRINT:PRINT NFICH;"FICHES" 

790 FOR TP=1 TO 2000:NEXT TP 


800 RETURN 

B10 ‘=========2=-===-=--2--=-2--21===-==22=2:= liste du fichier 
820 PRINT "LISTE DU FICHIER'":PRINT 

830 


840 FOR F=1 TO NFICH 

850 IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER":X$ 

860 PRINT NOM$(F);TAB(13); 

870 PRINT VILLE#(F): 

880 PRINT 

890 NEXT F 

900 PRINT:INPUT "APPUYER SUR <ENTER ":;Xx$ 

910 RETURN 

920 ‘=========22==22====2==2==2====Ss2=2=22= liste triee par nom 
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930 FOR F=i TO NFICH 
940 CLE#(F)=NOM#(F):IX2(F)=F 


950 NEXT F 

960 ‘ 

970 NC=NFICH " nc: nombre de cles 
980 GOSUE 1090 ‘ appel tri 

990 ‘ 


1000 CLS:PRINT "LISTE TRIEE PAR NOM":PRINT 
1010 FOR F=1 TO NC 

1020 X=IXX(F) 

1030 PRINT NOM#(X); TAB(15); 

1040 PRINT VILLE#(X) 

1950 NEXT F 

1060 PRINT:INPUT "APFUYER SUR <ENTERD ";X# 
1070 RETURN 

10B0 : rss sssessssseese tri shell 
1990 ECART=NC 

1100 ECART=INT(ECART/2):IF ECARTé1 THEN RETURN 
1110 IV=û 

1120 FOR K=1 TO NC-ECART 

1139 J=K+ECART 

1140 IF CLE$(J)>=CLES$(K) THEN 1170 

1150 X$=CLE#(K):CLES$(K)=CLES$(J):CLE$(J)=X$#:IV=i 
1160  X=IXZ(K) 2: IXX(K)=IX2(J):IXA(J)=X 

1170 NEXT K 

1180 IF IV=1 THEN 1110 

1190 GOTO 1100 


1200 ‘=====2==22=222222=2===2=2ss22s2e222 liste triee par ville 
1210 INPUT "VILLE (CENTER pour toutes) ";CLE# 
1220 NC=60 " nombre de cles 


1230 LG=LEN(CLE#) 

1240 FOR F=1 TO NFICH 

1250 IF CLE$<>LEFT#(VILLE#(F) ,LG) THEN 1270 
1260 NC=NC+1:CLE$ (NC)=VILLES$(F):IXX (NC) =F 

1270 NEXT F 

1340 GOSUR 1090 appel tri 
1350 CLS:PRINT "LISTE TRIEE PAR VILLE":PRINT 
1360 FOR F=1 T0 NC 

1370 IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER"; X$ 
1380 X=IXZ2(F) 

1390 PRINT VILLE#(X):;TAB(15); 

1400 PRINT NOM$(X) 

1410 NEXT F 

1420 PRINT :INPUT "APPUYER SUR <ENTER> "3x4 

1430 RETURN 


1440 ‘=====s22222s2s2=222=s2s=2222==s=22=2=2222=-= uppression 
1450 PRINT: LINE INPUT "NOM? ":;NOM#:1IF NOMg=e THEN RETURN 
1460 


1470 FOR RANG=1 TO NFICH 

1480 IF NOM$(RANG)=NOM$ THEN 1520 

1490 NEXT RANG 

1500 PRINT:PRINT "N'existe pas":PRINT:GOTO 1450 
1510 ‘ 

1520 PRINT 

1530 INPUT "SUPPRESSION OK (O/N) "3R#:1F R#$<>"O0" THEN 1450 
1540 FOR J=RANG TO NFICH-1 

1550 NOM$(J)=NOM#(J+1) 

1560 RUE$(J)=RUE#(J+1) 

1570 VILLE#(J)=VILLES#(J+1) 
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1580 CPST$(J)=CPST$(J+1) 

1590 NEXT J 

1600 NOM$(NFICH)="":RUES# (NFICH)="": VILLES (NFICH)="":CFSTS (NFICH) 
1610 NFICH=NFICH-1 

1620 GOTO 1450 


Mode ? C 


ENTER} pour fin de mode 
CENTER} pour zone inchangee(modif) 


Nom (ou <ENTER>? DURAND 

Nouveau nom OK (O/N) ? 0 
Rue? 13,RUE DE MILAN 
Ville? PARIS 
Code postal? 75000 


ENTER} pour fin de mode 
ENTER) pour zone inchangee(modif) 


Nom (ou CENTER»? 


Break in 260 
Ok 


Liste triee par nom 


BALU RUE XXX ST CLOUD 
BESSE RUE DE MILAN TOULON 
DUPONT 11,RUE NOBEL MONTIGNY 
DURAND 15,RUE DE MILANPARIS 
MARTIN XXX KKKK 
RACLIN RUE XXX PARIS 


Appuyer sur ENTER ? 


GESTION DE FICHIER AUTOMATIQUE 


Avec ce programme, la description des rubriques (NOM, LONGUEUR ,TYPE) est faite 
par l'utilisateur de façon conversationnelle. Cette description est sauvegardée dans le 
fichier. 


Une table FICHS(,) à 2 dimensions contient dans chaque ligne un “enregistrement”. 


NRUBS() TYPS() LG() NOM PR RUE VILLE CPST 


Conf 
BURN EE 
er en 
ne 






Nouveau fichier (0/N)7? 0 


Nombre maxi de fiches? 100 


Nom rubrique ? (ou (ENTER?) 
Type{C=chaine/ N=numérique)?C 
Longueur maxi ? 12 

Nom rubrique ? (ou <ENTER}) 
Type(C=chaine/ N=numérique)?C 
Longueur maxi ? 19 

Nom rubrique ? 
Type(C=chaine/ N=numérique)?C 
Longueur maxi ? 15 

Nom rubrique ? (ou <ENTER>) 
Type(C=chaine/ N=numérique)?C 
Longueur maxi ? 15 


Nom rubrique ? (ou <ENTER>) CPST 


Type{C=chaine/ N=numérique)?C 
Longueur maxi ? 5 

Nom rubrique ? (ou CENTER?) 
Break in 360 

Ok 


CRÉATION ET MODIFICATION : 


PR 


NOM 


(ou CENTER) RUE 


LES PROGRAMMES | 147 


VILLE 


La création et la modification d'enregistrements se font avec le mode “C”. Pour une 
modification, l'ancienne valeur de chaque rubrique est affichée. Le programme attend 
alors la nouvelle valeur. Si l'utilisateur appuie sur <ENTER> sans entrer de valeur, la 


rubrique n'est pas modifiée. 


LF: liste du fichier 
LFA: liste du fichier 
LFT: liste du fichier triee 
FIN: fin de session (SAUVEGARDE) 
Ss suppression fiche 

Mode ? C 


NOM ( ou <ENTER>) DURAND 


Nouvelle clé OK (O/N)? 0 
R:z0one arrière 
DURAND NOM ? 
PR ?JEAN 
RUE ?11,RUE NOBEL 
VILLE  ?MONTGNY 
CPST 278180 
NOM ( ou <ENTER>) 


TRI/ SÉLECTION : 


Le mode “LFT” permet de sélectionner et de trier des fiches automatiquement. 


Mode ? LFT 

Position tri(nom rubrique)? NOM 
Cle selection? (ou ENTER) 

Nom rubrique a editer (ou (ENTER? 
Nom rubrique a editer (ou <ENTER: 
Nom rubrique a editer (ou (ENTER? 
Nom rubrique a editer (ou (ENTER? 


JE TRIE POUR VOUS 


os 


NOM 
PR 
VILLE 
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Liste triee des fiches 


‘BALU {THIERRY {ST CLOUD 
!DUPOND UJEAN MONTIGNY 
lRACLIN lJEAN IPARIS 


Appuyer sur <ENTER} ? 


Vous pouvez ajouter des programmes spécifiques. Par exemple, un programme d’édi- 
tion. Les rubriques sont connues sous le nom de FICHS$(F,1), FICH$(F,2), etc. 


5000 FOR F=1 TO NFICH 

3010 PRINT FICH$#(F,1); TAB(20) 
3020 PRINT FICH$(F,2) 

3040 -NEXT F 


Si vous n'effectuez qu'une sauvegarde, faire : 


250 IF M$="FIN" THEN GOSUB 790:END 


LOST SR Tran ner See GESTION DE FICHIER 
20 

30 Les noms des rubriques sont definis de facon 
40 conversationnelle et sauvegardes avec le fichier. 
90 Une table FICH#(,) a 2 dimensions contient dans 
60 chaque ligne un ‘enregistrement. 

70 

80 MFICH: nombre maximum de fiches 

90 NFICH: nombre de fiches 

100 NRUB$(): noms des rubriques 

110 

120 NFICH=0 " nombre de fiches 


130 MODE 2:PRINT "CLAVIER MAJUSCULE" 
140 INPUT "Nouveau fichier (O/N) ";R$:IF R$="0" OR R$="o" THEN G 
OSUB 320:60T0 160 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
500 
310 
320 
330 
340 
350 
360 
370 


380 
390 


GOSUR 930 

CLS: PRINT "MODES: ": PRINT 

PRINT TAR(3)3;"C: CREATION/MODIFICATION" 
PRINT TAB(3)3;"LF: LISTE DU FICHIER" 

PRINT TAR(3)3;"FIN: FIN DE SESSION(SAUVEGARDE) " 
PRINT TAB(3);"LFA: LISTE DU FICHIER" 

PRINT TAR(3)3;"LFT: LISTE DU FICHIER TRIEE" 
PRINT TAB(3);"S: SUFPRESSION FICHE" 
PRINT:INPUT "MODE "; M$: M$=UPPERS (M$) 


IF M$="C" THEN GOSUB 480 
IF M$="FIN" THEN GOSUB 790:END 
IF M$="LF" THEN GOSUE 1110 


IF M$= 


"LFA" THEN GOSUR 1310 


IF M$="LFT" THEN GOSUB 1380 
IF M$="S" THEN GOSUR 2130 


GOTO 160 
Ssszs=ssss====2=22=2-=2==22=2=2==22= description des rubriques 
PRINT 

INPUT "Nombre maxi de fiches ";MFICH 

PRINT 

FOR K=1i TO 10 à " 10 rubriques maxi 
LINE INPUT "Nom rubrique (ou €ENTER?) ";X# 


IF X$="" THEN NRUB=K-1:DIM FICHS$CMFICH,NRUE) ,CTRI#(MFICH),I 
X4 (MFICH) : RETURN 
NRUB$(K)=X# 


LINE 


INPUT "Type (C=chaine/ N=numerique ) 7? ",X$ ne 


400 
410 
420 
430 
440 
450 
460 
470 
s de 
480 
490 
500 
510 
520 
530 
540 
550 
560 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
74û 
750 
760 
770 
780 
790 
800 
B10 
820 
830 
840 
850 
B6Ô 
870 
880 
890 
900 
gi1û 
920 
930 
94û 
950 
960 
970 
980 
990 
1000 
1010 
1920 
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IF X$<>"C" AND X$<>"N" THEN 390 


TYP#(K)=XS$ 
INPUT "Longueur maxi ":3;X 
LG(K)=X 

NEXT K 

PRINT "TROP DE RUBRIQUES":STOP 


‘zzzzszs=s=ass===e=s=22===22==22222= CREATION/MODIFICATION 

" En mode modification,entrer seulement les premieres lettre 
la cle 

PRINT 

PRINT NRUB#(1); 

LINE INPUT " (ou £ENTER} ) ";CLES$:1F CLE$="" THEN RETURN 

‘ pas d'espace entre "" de IF CLE$="" 

LG=LEN(CLES#) 


IF NFICH=0 THEN 620 
FOR RANG=1 TO NFICH 
IF CLES$=LEFT$(FICH#(RANG,1),LG) THEN 8680 ‘ nom existe? 
NEXT RANG 
Es ReesSe es nouvelle cle 
PRINT:INPUT "Nouvelle cle OK (O/N) ";R$ 
IF R$<>"0" AND R$<)"o" THEN 480 
NFICH=NFICH+1 
RANG=NFICH 
FICH$(RANG,1)=CLE# 
noce ce note entree/modif zones 


PRINT 

PRINT "R:ZONE ARRIERE'":PRINT 

FOR R=2 TO NRUE ‘ ou FOR R=1i TO NRUE 
PRINT FICH#(RANG,R)3:TAR(15); ‘ ancienne valeur 
PRINT NRUB#$(R);TAH(22); " nom de zone 


LINE INPUT "?7",X$ 

IF X$="R" THEN IF R>1 THEN R=R-1:GO0T0 710 

IF X${>"" THEN FICH$(RANG,R)=X$ 
NEXT R 
GOTO 480 
OPENOUT "FICH" 
PRINT #9,MFICH:PRINT #9,NFICH:PRINT #9,NRUR 
FOR R=1i TO NAUR 

PRINT #9,NRUB#(R):PRINT #9,TYF#(R):PRINT #9,LG(R) 
NEXT R 


FOR F=i TO NFICH 
FOR R=1 TO NRUE 
PRINT #9,FICH#$(F,R) 
NEXT KR 
NEXT F 
CLOSEOUT 
RETURN 
sssseseszzzss=ssss2s=2==22z===s=======22= lecture fichier 
OPENIN "FICH" 


INPUT #9,MFICH,NFICH,NRUB 
DIM FICH$(MFICH,NRUB) ,CTRIS(MFICH) ,IXZ2(MFICH) 
FOR R=1 TO NRUR 
INPUT #9,NRUBS(R) ,TYP#(R) ,LG(R) 
NEXT R 
FOR F=1 TO NFICH 
FOR R=1 TO NRUB 
LINE INPUT #9,FICH#(F,R) _— 
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1030 NEXT R 

1940 NEXT F 

1050 CLOSEIN 

1060 PRINT:PRINT NFICH3; "FICHES" 
1070 FOR TP=1 TO 2000:NEXT TP 
1080 GOSUR 207C 

1090 RETURN 


1100 =zzzzzzz2=22=2=222====s22====222= liste du fichier directe 
1110 CLS 

1120 PRINT "LISTE DU FICHIER":PRINT 

1130 ‘ 


1140 FOR F=1 TO NFICH 
1150 IF F MOD 20=0 THEN INPUT "Appuyer sur ENTER ";X# 


1160 PRINT FICH#(F,1);TAB(15); ‘ zone ! 
1170 PRINT FICHS#(F,2) ‘ zone 2 
1180 NEXT F 


1190 PRINT:INPUT "APPUYER SUR <ENTER> "3; Xx$ 
1200 RETURN 


1300 ‘====2==2222=222222s222222 Jjiste des fiches automatique 
1310 ID(1)=1:1D(2)=3 ‘ numeros des zones (a adapter) 
1320 ” 


1330 CLS:PRINT "LISTE DES FICHES'":PRINT 

1340 FOR F=1 TO NFICH:IXX(F)=F:NEXT F 

1350 NC=NFICH:G60SUB 1650 

1360 RETURN 

1370 ‘=========2===2==222=2==2=2=222=-= tri/selection des fiches 
1375 ‘ Pour cles commencant par ‘BA' repondre ‘BA’ 

1376 ‘ a la question ‘Cle selection? ‘ 

1380 INPUT "Position tri (nom rubrique) ";X#:GOSUB 1490:IF R>NRU 
BR THEN 1380 

1390 PTRI=R 

1400 LINE INPUT "Cle selection? (ENTER pour toutes) ",CLES$ 
1410 FOR J=1 TO NRUB+1 

1420 ID(J)=0 

1450 LINE INPUT "Nom Rubrique a editer (ou ENTER ";X$:1IF X$="" 
THEN 1540 

1440  GOSUR 1490:IF R>NRUB THEN 1420 

1450 ID(J)=R 

1460 NEXT J 

1470 GOTO 1540 

1480 ‘-- 

1490 FOR R=1 TO NRUB 

1500 IF X$=NRUR#(R) THEN RETURN 

1510 NEXT R 

1520 RETURN 

1530 ‘----- 

1540 NC=0 " nc: nombre de cles 
1550 LG=LEN(CLES#) 

1560 FOR F=1 TO NFICH 

1570 IF CLE$<?LEFT#(FICH$(F,PTRI),LG) THEN 1590 

1580 NC=NC+{1:CTRIS$(NC)=FICH#(F,PTRI):IXZ(NC)=F 

1590 NEXT F 

1600 GOSUR 1920 " appel tri 

1610 PRINT:PRINT "LISTE TRIEE DES FICHES ":PRINT 

1620 GOSUR 1650 

16350 RETURN 

1640, Es sesesesessescss spgm edition ecran 

1650 FOR W=1i TD 10 

1660 IF ID(W)=0 THEN 1700 
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1670 PS(W)=PS(W-1)+LG(ID(W))+2 

1680 NEXT W 

1690. “== 

1700 FOR F=1 TO NC 

1710 F1=IX2(F) 

1720 PRINT "!"; 

1730 FOR R=i TD NRUB 

1740 IF ID(R)=0 THEN 1790 

1750 PRINT FICH#(F1,ID(R)); 

1760 PRINT TAB(PS(R)): 

1770 PRINT "!"; 

1780 NEXT R 

1790 PRINT 

1800 IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER"; X$ 
1810 NEXT F 

1820 FRINT:INPUT "APPPUYER SUR <ENTER? ";X$ 
1830 RETURN 

1910 rss ss se-essssssesssss tri SHELL-METZNER 
1920 ECART=NC 

1930 PRINT:PRINT "JE TRIE POUR VOUS ":PRINT 
1940 ECART=INT(ECART/2):IF ECART<1 THEN RETURN 
1950 J=1 :K=NC-ECART 

1960 L=J 

1970 M=L+ECART 

1980 IF CTRI$(L)£=CTRIS$(M) THEN 2040 

1990 X$=CTRIS(L):CTRIS(L)=CTRIS (M): CTRIS(M)=X$ 
2000 X=IX4(L):IX4(L)=IX2 (M): IXX (M) =X 

2010 L=L-ECART:IF L£i THEN 2040 

2020 GOTO 1970 

2030 ‘ 

2040 J=J+1:IF J>K THEN 1940 

2050 GOTDO 1960 

2000 /"=-ss=essessssse liste descripteur 

2070 FOR R=1 TO NRUB 

2080 PRINT NRUR#(R) 

2090 NEXT R 

2100 FOR TP=1 TO 2000:NEXT TP 

2119 RETURN 

2120 ‘=========2=2=222======2=222====2==2=2=z= suppression fiche 
2130 PRINT :PRINT NRUB#(1)3;:LINE INPUT "?",CLES$ 
2140 IF CLE#$="" THEN RETURN 

2150 FOR RANG=1 TO NFICH 

2160 IF CLES$=FICH#(RANG,1) THEN 2200 

2170 NEXT RANG 

2180 FRINT:PRINT "N'existe pas":6G0OTO 2130 

2190 ‘ 

2200 FRINT:INPUT "ANNULE OK(O/N) "3R#:IF R$<>"O" THEN 2130 
2210 FOR J=RANG TO NFICH-1 

2220 FOR R=1 TO NRUR 

2230  FICH#(J,R)=FICH$(J+1,R) 

2240 NEXT K 

2250 NEXT 7 

2260 FOR R=1 TO NRUB:FICH#(NFICH,R)="":NEXT R 
2270 NFICH=NFICH-1 

22B0 GOTO 2130 
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BIBLIOTHÈQUE 


Une bibliothèque est gérée dans des tables en mémoire centrale. Ces tables sont 
sauvegardées sur cassette. 


TITRS( ) AUTS( ) C$(,) 


Eos 
ie 
. 


MA VIE ET LA PSYCHANALYSE 
PROGRAMMER EN ASSEMBLEUR 





Titres Auteur 


Deux mots-clés par ouvrage sont prévus. L'édition des listes triées par titre et par mot- 
clé se fait selon le principe présenté dans le programme de gestion d'adresses. 


On remarquera l'instruction : 


340 IF TITR$S=LEFTS(TITRS (RANG,L)) THEN 460 


En “mode modification”, elle permet d'entrer seulement les premières lettres du titre. 


C: Création modification 

LTITRE: Liste par titre 

LCLE: Liste par mot-clé 

FIN: Sauvegarde 

S: Suppression fiche 
Mode ? £ 


Titre? FROGRAMMER EN ASSEMBLEUR 
Nouveau titre (O/N) ? 0 
PROGRAMMER EN ASSEMBLEUR 


Auteur 7? PINAUD 
Mot clé ? ASSEMBLEUR 
Mot clé 7? Z80 


Titre? 

Break in 280 

Ok 

Liste triée par titre 


BASIC A Z DUPONT 
BASIC ET SES FICHIER DUFONT 
BASIC POUR TOUS DUPONT 
PROGRAMMER EN ASSEME FINAUD 


Appuyer sur <ENTER: 7? 
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ASSEMBLEUR 
PROGRAMMER EN ASSEMB PINAUD 


BASIC 
BASIC ET SES FICHIER DUPONT 
BASIC A Z DUPONT 
BASIC POUR TOUS DUPONT 
FICHIER 


BASIC ET SES FICHIER DUPONT 


Z80 


PROGRAMMER EN ASSEMB PINAUD 


Si vous n'effectuez qu’une sauvegarde, faire : 


190 
266 
210 
220 
230 
240 
250 


260 


300 
310 
320 
330 
340 
3950 


200 IF M$="FIN" THEN GOSUB 980:END 


ep BIBLIOTHEQUE 

MODE Z:PRINT "CLAVIER MAJUSCULE" 

DIM TITR#(100) ,AUT#(100),C#(100,2) 

DIM CLE#(200),IX%(200) 

NFICH=0 nombre de fiches 
INPUT "NOUVEAU FICHIER (O/N) ";R# 

IF R$="Q" OR R$="o" THEN 100 


GOSUB 1110 

CLS 

CLS:PRINT "MODES: ":PRINT 

PRINT TAB(3) "C: CREATION/MODIFICATION" 


PRINT TAB(3) "LTITRE:LISTE PAR TITRE" 

PRINT TAB(3) "LCLE: LISTE FAR MOT-CLE" 

PRINT TAB(Z3) "FIN: SAUVEGARDE" 

PRINT TAB(3) "GS: SUPPRESSION FICHE" 

PRINT: INPUT "MODE "; M$: M#=UFPERS(M#) 

IF M$f="C" THEN GOSUB 270 

IF M$="LTITRE" THEN GOSUR 660 

IF M$="FIN" THEN GOSUR 980:END 

IF M$="LCLE" THEN GOSURB 13190 

IF M$f="S" THEN GOSUB 1550 

60TO 110 

sssssss=s=s2=======s=S=s2s2ss=22==322 creation/modification 
en mode modification,entrer les premieres lettres du titre 


PRINT 
PRINT:LINE INPUT "TITRE? (OU ENTER) ";TITR# 
IF TITR$="" THEN RETURN 


LG=LEN(TITRS) 
IF NFICH=0 THEN 2:70 
FOR RANG=1 TO NFICH 
IF TITR#=LEFTS#S(TITR#(RANG) ,LG) THEN 460 
NEXT RANG 
PRESSE SSSR Se ses seen nouveau titre + 
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370 
380 
390 
400 
410 
420 
430 
440 
ent 
450 
460 
470 
480 
490 
500 
910 
520 
930 
540 
590 
630 
b40 
" a 
650 
660 
670 
680 
690 
700 
710 
715 
720 
730 
740 
750 
760 
770 
780 
790 
800 
B10 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
980 
970 
980 
990 


PRINT:INPUT "NOUVEAU TITRE (O/N) "$R$ 
IF R$<>"0" AND R$<>"o" THEN 280 
NFICH=NFICH+I 

RANG=NFICH 


TITR$(RANG)=TITRS 


pour modification,appuyer sur <ENTER> si zone sans changem 


PRINT :PRINT TITR$(RANG):PRINT 
PRINT AUT#(RANG);TAB(15); ancienne valeur 
INPUT "AUTEUR "3; AUT#:1IF AUT$<>"" THEN AUTS#(RANG)=AUTS 


FOR C=1 TO 2 


PRINT C$(RANG,C):;TAB(15); ancienne valeur 
INPUT "MOT CLE ";cC# 
IF C$<}"" THEN C$(RANG,C)=C# 
NEXT C 
GOTO 280 
sssz=s2s222=2222===222=2=====22= liste triee par titre 
Pour liste des ouvrages commencant par ‘BA' ,repondre 
‘Cle?’ 
PRINT:INPUT "CLE (ENTER pour tous les titres) ";CLE# 


LG=LEN(CLE#) 
NC=0 ‘ nc:nombre de cles 
FOR LV=1 TO NFICH 

IF CLE$<?LEFT$(TITR#(LV),LG) THEN 720 
NC=NC+1:CLE# (NC) =TITRS (LV): 1IX% (NC) =LV 

IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER":X# 
NEXT LV 
GOSUR 860 " appel tri 
mme edition 
CLS:PRINT "LISTE TRIEE PAR TITRE ":PRINT 
IF NC=0 THEN RETURN 
FOR LV=1 TO NC 

X=IX2(LV) 

FRINT LEFT#(TITR#(X),20):;TAB(22); 

PRINT AUT#(X) 

IF LV MOD 20=0 THEN INPUT X# 
NEXT LV 
PRINT:INPUT "APPUYER SUR CENTER ":X$ 
RETURN 

famsmmmmemmmmmmmmemmmmmmmss— tri shell 
ECART=NC 


ECART=INT(ECART/2):1IF ECART<1 THEN RETURN 
IV=0 
FOR K=1 TO NC-ECART 
J=K+ECART 
IF CLE$(J)>=CLE$(K) THEN 950 
X$=CLES$(K):CLES$(K)=CLES$(J):CLES$(J)=X$:IV=1 
X=IX% (KI): IXA(K)=IXA(J):IX%(J)=X 
NEXT K 


OPENOUT "BIR" 
IF NFICH=0 THEN RETURN 


1000 PRINT #9,NFICH A 


"BA 


1010 
1020 
1930 
1040 
1050 
1960 
1070 
1080 
1090 
1100 
1110 
1120 
1139 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1280 
1290 
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FOR F=1 TO NFICH 
PRINT #9,TITR#(F) 

PRINT #9,AUT#(F) 

FOR C=i TO 2 

PRINT #9,C$(F,C) 

NEXT C 
NEXT F 
CLOSEOUT 
RETURN 
‘sssssssszsssess==s=s===22==2===22=2e===2=2= lecture cassette 
OPENIN "BIB" 
INPUT #9,NFICH 
FOR F=i TO NFICH 

INPUT #9,TITR#(F) 

INPUT #9,AUT#(F) 

FOR C=1 TO 2 

INPUT #9,C#(F,0C) 

NEXT C 
NEXT F 
CLOSEIN 
PRINT:PRINT NFICH; "TITRES": PRINT 
FOR TP=1 TO 2000:NEXT TP 


S=zzzzs=sz=ssss2s2=22=2=2=2====2=2==222= liste par mot cle 
" Pour tous les mot-cle,appuyer sur <ENTER} pour la questio 


n ‘Cle? 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1560 
1590 
1600 
1610 
1620 
1630 


INPUT "CLE (ENTER pour toutes ) ";CLE# 
LG=LEN(CLES#) 
NC=0 " nombre de cles 
FOR F=1 TO NFICH 
FOR C=1 TO 2 
IF C$f(F,C)="" THEN 1390 
IF CLE$<?LEFT#(C$(F,C) ,LG) THEN 1390 
NC=NC+1:CLE#$(NC)=C#(F,C):1IX24 (NC) =F 
NEXT € 
NEXT F 


GOSUR 840 " appel tri 
TPS eee ses ressee edition 
CLS:PRINT "LISTE TRIEE PAR MOT-CLE'":PRINT 
FOR F=1 TO NC 
X=IXX(F) 
IF CLE$(F-1)<ÈCLES#$(F) THEN PRINT:PRINT CLE$(F):PRINT 
PRINT TAB(4);LEFT#(TITR#(X),20); TAB(25); 
PRINT AUT#(X) 
IF F MOD 8=0 THEN INPUT "APPUYER SUR ENTER ";X$# 
NEXT F 
PRINT: INPUT "APPUYER SUR £ENTER>":;X# 


PRINT:INPUT "TITRE ";TITR#:IF TITR$="" THEN RETURN 
LG=LENCTITR#) 
FOR RANG=1 TO NFICH 
IF TITR#=LEFTS#(TITRS(RANG) ,LG) THEN 1620 
NEXT RANG 
PRINT:PRINT "N'existe pas":PRINT:G60TO 15350 


PRINT TITR$(RANG):PRINT 
INPUT "SUPPRESSION OK (O/N) ) ";R# ré 
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1640 IF R$<>"O" THEN 1550 
1650 FOR J=RANG TO NFICH-1 


1660 TITR#(J)=TITR#(J+i) 

1670 AUT#(J)=AUT#+(J+1) 

1680 FOR C=1 TO 2 

1696 CH(J,C)=C#(J+1,0) 

1700 NEXT C 

1710 NEXT J 

1720 TITR$(NFICH)="": AUTS(NFICH)="" 
1730 FOR C=1 TO 2:C$(NFICH,C)="":NEXT C 
1740 NFICH=NFICH-1 

1750 GOTO 155 


157 


LECPC 664 | 14 


Le BASIC du CPC 664 est très proche de celui du CPC 464. Il dispose de quelques 
instructions supplémentaires. Pour être en mesure de sauvegarder vos programmes 
BASIC, vous devez lire l'introduction de cette partie. 


INTRODUCTION 


Lorsque vous mettez le CPC 664 sous tension, le message ci-dessous apparaît : 


Amstrad 64K Microcomputer  (v2) 


$1984 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd. 


BASIC 1.1 






PROTECTION 
ECRITURE 
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CAT 


Vous êtes sous BASIC. Placez la disquette CP/M dans le lecteur de disquette. La 
commande “CAT” vous permet d'afficher la liste des fichiers de la disquette : 


Read 
CAT 


Drive A: user 0 


AMSDOS .COM ik DDT . COM 5K FiLECOPY.COM 3K STAT . COM CL 
ASM .COM  8K DISC .BAS 20K FORMAT .COM 3K SUBMIT .COM 2K 
BOOTGEN .COM 2K DISCCHK .COM 3K LETTRE .TXT ik SYSGEN .COM 2K 
CHKDISC .COM 3K DISCCOPY.COM 3K LOAD . COM 2K X .TXT iK 
CLOAN .COM  2K DUMP . ASM ok MOVCPM .COM 10K XSUB . COM 1K 
CODE $$$ OK DUMP . COM 1K PIP . COM 8k XX .TXT ik 
COPIE : 2K ED . COM 7K RITDEMO .BIN 12K XY “TXT ik 
COPYDISC.COM  3K EX1 . BAS 2K ROINTIME.DEM 26K 

CSAVE .COM 2K EX2 . BAS ik SETUP . COM BK 

12K free 


Pour sauvegarder vos programmes, vous devez d'abordinitialiser une disquette vierge. 
Pour cela, accédez à CP/M en frappant “ICPM” : 


ICPM 
>CP/M version 2.2 


Ensuite, frappez “FORMAT" (avec la disquette CP/M). Enfin, placez votre disquette 
vierge et appuyez sur une touche quelconque. 


A>FORMAT 
an 


FORMAT V2.0 


Please insert disc to be formatted into drive À 
then press any key: 
Formatting started 
Formatting track (9) 


Formatting track 
Formatting track 


LA 1) + 


Formatting track 


Remarque : Assurez-vous que la protection écriture de la disquette n'est pas activée. 


Lorsque la disquette est “formatée”, vous pouvez sauvegarder vos programmes avec 
la commande SAVE. 


Pour revenir au BASIC, placez dans disquette CP/M puis frappez “AMSDOS”. 


SAVE ‘nom-programme” 
LOAD ‘“nom-programme” 





La commande SAVE sauvegarde sur disquette le programme en mémoire centrale. 
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La commande LOAD permet de le transférer de la disquette vers la mémoire centrale. 


10 PRINT "AMSTRAD" 
20 PRINT "CPC664" 


SAVE "ESSAI 
Ready 


NEH 
Ready 


LOAD "ESSAI 

Ready 

LIST 

10 PRINT "AMSTRAD" 
20 PRINT "CPC664" 


Le programme est sauvegardé avec le type “.BAS” et s'appelle en réalité 
“ESSAI.BAS”. Pour l’effacer, vous devrez spécifier le nom suivi du type. 


Lorsqu'un programme est sauvegardé une seconde fois, l'ancienne version est sau- 
vegardée avec le type “.BAK”. Pour l’effacer, frappez: 


IERA, “ESSAI.BAK” 
Comme sur cassette, un programme peut être sauvegardé en ASCII par : 
SAVE “non-programme”, À 
(cf. chapitre commandes). 


Nous vous conseillons de dupliquer la disquette CP/M sur une autre disquette (cf. 
DISCCOPY plus loin). 


COMMANDES ACCESSIBLES SOUS BASIC 
6128 et 664 


um CAT # IDISC.IN # DRIVE, ‘A” 
# DIR # |DISC.OUT # DRIVE, ‘B” 
m [ERA # DISC # |REN 

m ITAPE.IN = |A # |USER 

m ITAPE.OUT = |B m |CPM 

m ITAPE 


Cf. Chapitre CPC 6128. 
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COMMANDES ACCESSIBLES SOUS CP/M 2.2 


# DIR # ERA # CLOAD 
m DISCCOPY m STAT # CSAVE 
= FORMAT = PIP m SET UP 
m FILECOPY m TYPE # AMSDOS 
# COPYDISC # REN 


L'accès à CP/M se fait en frappant “ICPM”. Un “type” est attribué à la plupart des 
fichiers. Par exemple, lorsqu'un programme BASIC est sauvegardé par SAVE “PROG”, 
le type “.BAS” lui est affecté ; le nom du fichier pour CP/M est “PROG.BAS”. 


Ceci permet de regrouper les fichiers par famille. Les types les plus courants sont : 


.BAS BASIC 

.BIN BINAIRE 

.BAK SAUVEGARDE 
.COM COMMANDE 


Pour référencer une famille de fichiers, il suffit de spécifier le signe “*” à la place du 
nom. 


Les commandes DIR, ERA, REN, TYPE sont exécutables sans la disquette CP/M. Les 
autres commandes doivent être présentes sur la disquette lorsqu'elles sont appelées. 
Vous pouvez recopier certaines commandes de la disquette CP/M sur votre disquette 
de programmes. L'exécution d'une commande est annulée en frappant CTRL/C. 


DIR 


Affiche la liste des fichiers d'une disquette. 


IDIF affiche la liste de tous les fichiers de la disquette du lecteur A: 
IDIR %,HAS affiche la liste des fichiers du type “.BAS”. 
DIF BE: affiche la liste des fichiers de la disquette du lecteur B: 
A>DIR 
A: MOVCPFM COM : PIP COM : SUBMIT COM : XSUR COM 
A: ED COM : ASM COM : DDT COM : LOAD COM 
A: STAT COM : DUMP COM : DUMP ASM : AMSDOS COM 


A: FILECOPY COM : SYSGEN COM : BOOTGEN COM : COPYDISC COM 
: CHKDISC COM : DISCCOPY COM : DISCCHK COM : SETUP COM 
: FORMAT COM : CSAVE COM : CLOAD COM : EXI BAS 
5 EX2 BAS : ROINTIME DEM : RITDEMO BIN : DISC BAS 


> 


DDDT 
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DISCCOPY 


Copie une disquette sur une autre avec un seul lecteur de disquette. La 
disquette “destination” n’a pas à être formatée. Placer la disquette CP/M et frapper 
“DISCCOPY”. Placer ensuite la disquette source à recopier et appuyer sur une touche. 


A>DISCCOPY 


DISCCOPY V2.0 


Please insert source disc into drive À then press any key:_ 
Copying started 
Reading track Ô 


Reading track 
Reading track 
Reading track 
Reading track 
Reading track 


On BB ca +) 


Reading track 
Reading track 7 
Please insert destination disc into drive À then press any key: 
Writing track ) 
Writing track Î 


La sauvegarde est faite par groupes de 8 pistes. Vous devez alternativement placer 
les disquettes “source” et “destination” dans le lecteur. 


FORMAT 


Permet de “formater” une disquette vierge. Placer la disquette CP/M contenant le 
fichier FORMAT.COM et frapper : 


FORMAT 


Placer ensuite la disquette vierge dans le lecteur et appuyer sur une touche quel- 
conque. La disquette formatée est alors utilisable par AMSTRAD. 


FILECOPY nom-fichier 


Copie un fichier ou un groupe de fichiers d’une disquette “source” vers une disquette 
“destination”. La disquette destination doit être formatée. 


Placer la disquette CP/M dans le lecteur et frapper FILECOPY. Placer ensuite la dis- 
quette source contenant les fichiers à recopier. 
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A>FILECOPY +#.BAS 
FILECOPY V2.1 


Please insert SOURCE disc into drive À then press any key: 
Ambiqguous file name: £Confirm individual files (Y/N) 7 Y 


EX1 .BAS Copy (Y/N) 7 Y 
EX2 .BAS Copy {Y/N) 7 N 
DISC .BAS Copy (Y/N) 7 Y 
XX .BAS Copy (Y/N) 7? N 


Copying started, 


Please insert DESTINATION disc into drive À then press any key: 


COPYDISC 


Copie une disquette du lecteur A: vers le lecteur B: 


ERA nom-fichier 


Efface un fichier ou un groupe de fichiers. 


ER FROG, HAS efface le fichier PROG.BAS. 


ERA +, HAS efface tous les fichiers du type .BAS. 
ERA 4, efface tous les fichiers. 
STAT 


Fournit les caractéristiques des fichiers. 
STAT donne la place libre sur la disquette. 
A>STAT 
A: R/0, Space: S4k 
STAT +, donne les caractéristiques de tous les fichiers. 


R>STAT #.+ 


Recs Bytes Ext Acc 
2 Lk 1 R/W A:AMSDOCS,COM 
b4 Bk 1 R/W A:ASM,COM 
10 2k {1 R/W 4:BOOTGEN,COM 
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STAT +.BAS donne la liste pour les fichiers du type .BAS. 


A>STAT *,RAS 


Recs Bytes Ext Acc 
158 20k 2 R/W A:DISC.BAS 
11 2k 1 R/W A:EX1.BAS 
3 ik {1 R/W A:EX2.RAS 
4 1k 1 R/W A:XX.BAS 
Bytes Remaining On A: 34k 


STAT #,COM ÆR/0 les fichiers du type “COM” ne peuvent être supprimés. 


A>STAT +.COM #R/0 


MOVCPM.COM set to R/0 
PIP.COM set to R/0 
SUBMIT.COM set to R/0 
XSUB,COM set to R/0 


ETAT +, COM #R/W les fichiers du type “COM” peuvent être supprimés. 


A>STAT +.C0M $R/W 


MOVCPM.COM set to R/W 
PIP.COM set to R/MH 
SUBMIT.COM set to R/W 


STAT +.COM ÆSYS les fichiers du type “COM” n'apparaissent plus lors d'une 
commande DIR. 


A>STAT +.COM $SVS 


MOVCPM.COM set to SYS 
PIPF.COM set to SYS 
SUBMIT.COM set to SYS 
XSUB.COM set to SYS 


STAT *,COM #DIR les fichiers du type “COM” apparaissent à nouveau lors 
d'une commande “DIR”. 


A>STAT +.COM $DIR 


MOVCPM.COM set to DIR 
PIP.COM set to DIR 
SUBMIT.COM set to DIR 
XSUB.COM set to DIR 


PIP destination=source 


Permet de copier un ou plusieurs fichiers. 


FIF COFIE=EX1.,EHAS copie le fichier EX1.BAS sous le nom de COPIE. 
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Les périphériques peuvent être considérés comme des fichiers : 


LST: IMPRIMANTE 

CON: CLAVIER ET ECRAN 

RDR: INTERFACE SERIE ENTREE 
PUN: INTERFACE SERIE SORTIE 


Ci-dessous, le fichier LETTRE.TXT est affiché sur l'imprimante. 


A>PIP LST:=LETTRE.TXT 


Cher Monsieur 
Veuillez trouver ci joint..... 


Ci-dessous, nous frappons une lettre au clavier. Les sauts de ligne sont obtenus en 
frappant CTRLY. Pour terminer, frapper CTRL/Z. 


A>PIF LETTRE,TXT=CON: 


CHER MONSIEUR 
VEUILLEZ TROUVER CI JOINT .... 
40 


A>TYPE LETTRE.TXT 


CHER MONSIEUR 


VEUILLEZ TROUVER CI JOINT .... 


TYPE nom-fichier 


Affiche à l'écran le fichier spécifié. 
TYPE LETTRE. TXT 


Un programme BASIC ne peut être affiché que s’il a été sauvegardé en ASCII. 


REN nouveau nom=ancien nom 


Change le nom d'un fichier. 
REN Y.BAS=X.BAS 
Le fichier X.BAS devient Y.BAS. 
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CLOAD “nom-fichier-cassette” nom-fichier-disquette 


Copie un fichier cassette sur disquette. Le fichier doit être du type ASCII. Un program- 
me doit avoir été sauvegardé par “SAVE “nom”,A”. 


A>CLOAD "" XX.TXT 


CLOAD V2.0 


CLOAD V2.0 finished 


Un programme BASIC sur cassette ou un fichier binaire peuvent être copiés sous 
BASIC en utilisant ITAPE.IN et LOAD“”. 


CSAVE nom-fichier-disquette ‘“‘nom-fichier-cassette”? 


Copie un fichier ASCII disquette sur cassette. 


SET UP 


Permet d'afficher et de changer les paramètres définis pour le système AMSTRAD. 


Ci-dessous, nous avons défini une commande (STAT) qui est exécutée à chaque fois 
que CP/M est activé. 


“7 M” définit le caractère retour-chariot. 
A:SETUR 


SETUF V2,0 
#+ Initial command buffer empty 


Is this correct (Y/N):2N 


Enter new initial command buffer: STATAM 
Initial command buffer: 


STATM 
Is this correct (Y/N): YSign-on string: 


Is this correct (Y/N):_Y 
Do you want to update your system disc (Y/N):_Y 


AMSDOS 


Cette commande provoque le retour au BASIC. 
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CARACTERES DE CONTROLE CP/M 


CTRL/C 
CTRL. /J 
CTRL/M 
CTRL/F 
CTRL/S 


CTRL/2Z 


interrompt l'exécution d'une commande. 

saut de ligne. 

retour en début de ligne. 

provoque l'affichage sur imprimante. 

suspend l'exécution d'une commande qui se poursuit en appuyant 
sur une touche. 

définit la fin d'un fichier. 


167 


LE CPC 6128 | ÎS 


Le BASIC du CPC 6128, identique à celui du CPC 664, est très proche de celui du 
CPC 464. Il comporte quelques instructions supplémentaires. 


Pour être en mesure de sauvegarder vos programmes BASIC, vous devez lire l'intro- 
duction de ce chapitre. 


INTRODUCTION 


Lorsque vous mettez le CPC 6128 sous tension, le message suivant apparaît : 


- 


Amstrad 128 Microcomputer (va) 


#1985 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd. 


BASIC 1.1 


Ready 


La disposition de certaines touches du clavier diffère de celle du CPC 464. La touche 
ENTER du CPC 464 devient RETURN sur CPC 6128. La touche ENTER du CPC 6128 
est équivalente à celle du pavé numérique sur le CPC 464. 
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PROTECTION ÉCRITURE 





A CPM PLUS 


CAT 





Vous êtes sous BASIC. Placez la disquette CP/M Plus dans le lecteur de disquette. La 
commande “CAT” vous permet d'afficher la liste des fichiers de la disquette. 


CAT 
Drive A: user 0 


AMSDOS .COM 1k DISCKITS3.COM &k PALETTE .COM 1K SETDEF .COM 4k 


BANKMAN .BAS ik ED .COM 10K PIP . COM 9K SETKEYS ,.COM 2K 

BANKMAN .BIN 2K ERASE .COM 4k PROFILE .ENG 1K SETLST .COM 2K 
CIOCPMS .EMS 25K GET . COM 7K PUT . COM 7K SETSIO .COM 2K 

DATE . COM 3K KEYS . CCP 1Kk RENAME .COM 3K SHOW . COM 9K 
DEVICE .COM BK KEYS . WP ik SET «COM 11K SUBMIT .COM 6K 

DIR .COM 15K LANGUAGE.COM 1K SET24X80.COM ik TYPE . COM 3K 
23K free 


Pour sauvegarder vos programmes, vous devez d'abord “formater” une disquette vierge. 
Pour cela, accédez à CPM Plus en frappant “ICPM” (le signe | s'obtient avec SHIFT 
@). 


‘CPH=7 


CF/M Plus Amstrad Consumer Electronics ple 
V 1.0 ,61 TFA , 1 disc drive 


Ensuite, frappez “DISCKIT3” (avec la disquette CP/M Plus). Un premier menu appa- 
raît, placez votre disquette vierge à formater dans le lecteur. 


A>DISCKIT3 
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D Assurez-vous que la protection écriture de la disquette n’est pas activée. 
Appuyez sur la touche “f4” qui vous permet de choisir le mode “format”. 
Un second menu apparaît : 


O0 0 


system format 
data format 


vendor format 
exit menu 





O0 Appuyez sur la touche “f6”. 
0 Le message ci-dessous apparaît : 


format as data 


Any key to exit to menu 


O0 Appuyez sur “Y” pour confirmer (Y=yes). 

Les numéros des pistes formatées défilent en haut à gauche de l'écran. 

0 Lorsque les 40 pistes de la disquette sont formatées, le message “REMOVE DISC” 
apparaît. 

0 Enlevez votre disquette et appuyez sur une touche quelconque pour revenir au 
menu principal. Appuyez alors sur “f0” pour revenir à CP/M Plus. 


[æ] 


Vous pouvez désormais sauvegarder des programmes sur votre disquette. Pour re- 
venir au BASIC, placez la disquette CP/M Plus et frappez “AMSDOS”. 


SAVE “nom-programme” 
LOAD ‘nom-programme” 


La commande SAVE” sauvegarde sur disquette le programme en mémoire centrale. 


La commande “LOAD” permet de le transférer de la disquette vers la mémoire centrale. 


19 PRINT "AMSTRAD" 
20 PRINT "CPC6128" 


SAVE "ESSAI" 
NEW 
LOAD "ESSAI" 
LIST 


19 PRINT "AMSTRAD" 
20 PRINT "CPC6128" 
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Le programme est sauvegardé avec le type “ BAS” et s'appelle en réalité 
“ESSAI.BAS”. Pour l'effacer, vous devrez spécifier le nom suivi du type. 


Lorsqu'un programme est sauvegardé une seconde fois, l'ancienne version est sau- 
vegardée avec le type “.BAK”. Pour l’effacer, frapper : 


IERA, “ESSAI.BAK" 
Comme sur cassette, un programme peut être sauvegardé en ASCII par : 
SAVE “non-programme”, À 
(cf. chapitre commandes). 


Nous vous conseillons de dupliquer la disquette CP/M sur une autre disquette (avec 
l'option COPY de DISCKIT3). 
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COMMANDES ACCESSIBLES SOUS BASIC 
6128 et 664 


um CAT m |DISC.IN # DRIVE, ‘“A” 
# DIR m |IDISC.OUT # DRIVE, ‘“B” 
m [ERA m DISC # |REN 

m ITAPE.IN = |A # |USER 

m ITAPE.OUT = |B um ICPM 

m ITAPE 


Toutes ces commandes (sauf CAT) doivent être précédées du signe “|”. Si vous dis- 
posez d'un second lecteur de disquette, celui-ci doit être spécifié par “B:” devant le 
nom du fichier. 


Les commandes peuvent être incluses comme instructions dans un programme. 


CAT 


Donne la liste des fichiers d'une disquette. 


IDIR 





Donne la liste des fichiers d'une disquette. 


DIR donne la liste des fichiers de la disquette du lecteur A: 
DIF ,'"+, HAS" donne la liste de tous les fichiers du type “.BAS”. 

DIR ,"Hs" donne la liste des fichiers de la disquette du lecteur “B:”. 
IDIR ,"+,BAS" 


Drive A: user 0 


EPSON . BAS DERR . BAS CURSOR .BAS SQUASH .BAS FDIS . BAS 
H35D . BAS COPYCHR$S.BAS HISTB . BAS MASK . BAS FILL . BAS 
TD . BAS GPAPER .BAS GPEN . BAS DEC . BAS LOCO . BAS 
HISTC . BAS IMMEUBLE.BAS MAISON .BAS ETOILE .BAS TAGI . BAS 
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ERA, ‘nom fichier” 


Efface le fichier ou le groupe de fichiers spécifiés. Le type doit être spécifié. Si vous 
avez sauvegardé un programme BASIC par SAVE “ESSAI”, vous devez frapper : 


LERA  L"ESSAT., HAS" 


ERA, "FROG, BAS" efface le programme “PROG”. 

ERA ,"+, BAS" efface tous les fichiers du type “.BAS”. 
ERA "UK #" efface tous les fichiers. 

ITAPE.IN 


Permet de lire un programme ou un fichier binaire d'une cassette. Frappez “ITAPE.IN” 
puis “LOAD “nom-programme”” : 


Ready 

[TAPE,IN 

Ready 

LOAD “u_“ 

Press PLAY then any key: 


Après avoir sauvegardé le programme sur disquette, frappez “IDISC.IN” pour accéder 
au disque en lecture. 


Pour accéder à un fichier séquentiel sur cassette par programme, inclure “ITAPE.IN” 
dans le programme. 


10 ITAPE.IN 
20 OPENIN “FICH” 


ITAPE.OUT 





Pour sauvegarder un programme ou la mémoire sur cassette, frappez “TAPE.OUT” 
puis “SAVE “non-programme””. 


ITAPE.OUT 
SAVE “PROG” 


ITAPE 


Est équivalent à “TAPE.IN” plus “ITAPE.OUT”. 
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IDISC.IN 





Annule “ITAPE.IN” et permet ainsi de référencer le lecteur de disquette en lecture. 


IDISC.OUT 
Annule “ITAPE.OUT”. 





DISC 
Est équivalent à “IDISC.IN” plus “IDISC.OUT”. 


|A 


Définit le lecteur “A:” par défaut. 


1B 


Définit le lecteur “B:” par défaut. 


IDRIVE ,‘A” 


Définit le lecteur “A:” par défaut. 


DRIVE ,“B:” 


Définit le lecteur “B:” par défaut. 


IREN ‘nouveau nom” ,‘‘ancien nom” 


Change le nom d'un programme. 


IREN ,“Y.BAS”,"X.BAS” 


IUSER ,numéro 


Permet de définir plusieurs catalogues sur une disquette. Les catalogues sont repérés 
par des numéros allant de 0 à 15. Le numéro par défaut est égal à 0. Ci-dessous, nous 
listons les fichiers du catalogue numéro 2. 


174 | BASIC AMSTRAD 


Drive À: user 
CECRAN .BAS 


o2E free 


ICPM 


Provoque le passage sous CP/M. 


+5 
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UTILISATION DU SECOND BLOC MÉMOIRE 


BASIC n'utilise que 64 k de la mémoire centrale. Les 64 k restants sont utilisés comme 
“banque de données” ou pour la sauvegarde de l'écran. 


BANQUE DE DONNÉES 


La “banque de données” est découpée en “enregistrements” auxquels on accède par 
un numéro. La longueur des enregistrements ne doit pas excéder 255 caractères. 


DUPONT 
MARTIN 


BALU 


© © = © 





Æ— longueur ——»- 


| BANKOPEN longueur enregistrement 


BANKOPEN définit la longueur des enregistrements. 
IBANKOPEN, 50 


| BANKWRITE ,@code retour,chaîne,numéro enregistrement 


Ecrit la chaîne spécifiée au numéro d'enregistrement indiqué. Le code retour prend 
une valeur égale au numéro d'enregistrement si l'opération s’est bien déroulée. 


— 1 indique que la taille des données dépasse 64 k. 
— 2 indique une erreur de changement de bloc. 


| BANKREAD ,@code retour,chaîne,numéro enregistrement 


Lit l'enregistrement indiqué dans la chaîne spécifiée. Le code retour prend les mêmes 
valeurs que pour l'écriture. 


Ci-dessous, nous écrivons trois noms dans la banque de données. Ensuite, nous re- 
cherchons le contenu des enregistrements. 
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Pour utiliser la banque de données, il est nécessaire de faire RUN “BANKMAN”. Na- 
turellement, le programme “BANKMAN.BAS” doit être présent sur la disquette. La 
variable code retour (R) doit être initialisée. 


19 ‘ ESSAI RANKMAN 


20 


30 ‘ FAIRE RUN "HANEMAN'" AVANT D'UTILISER CE FROGRAMME 
40 

30 MODE 2 

60 ‘------------------- 2 --- ECRITURE 

70 iBANEOPEN ,50 © longueur=5û 

80 RY=0 

90 A$="DUPONT Jean 044-22-63":N=1 ‘ enreg n0 | 

100 A$F=LEFTE(A#$+SPACES# (10) ,30) ° normalisation 


110 SRANEWRITE ,@R%X,AË,N 

120 A$="MARTIN Daniel 333-44-56":N=2 ‘ enreg no ©? 
150 A$=LEFTH(A#+SPACE#(30),30) 

140 SBANKWRITE ,@R%,A#,N 

150 A$="RALU Thierry 555-44-77":N=3 ‘ enreg no à 
160 A$F=LEFT$(A$+SPACE#(30),30) 

170 :BANEURITE ,€RY%,A#,N 

180. "---sssessssse-s--rsses LECTURE 

190 :RANEOPEN ,50 

200 ‘ 

210 INFUT "QUEL NUMERO ENREG (0 POUR FIN) ":N 

220 IF N=0 THEN END 

230 B$=SPACE#(30) 

240 RY=0 

250 :BANKREAD ,@R%,B#,N 

260 PRINT Ef,R% 

270 GOTO 210 


QUEL NUMERO ENREG (0 POUR FIN) ? 2 


MARTIN Daniel 33:-44-56 2 
QUEL NUMERO ENREG (OQ POUR FIN) ? 1 
DUFONT Jean 0044-22-63 1 


QUEL NUMERO ENREG (0 FOUR FIN) 7 *xBreak* 


| BANKFIND ,(@code retour,chaîne,début recherche, fin recherche 


Donne dans la variable “code retour” le numéro d'enregistrement contenant la chaîne 
cherchée, si elle existe. 


Si la chaîne cherchée n'existe pas, le code retour est égal à —3. 


D 1 indique un dépassement du bloc de 64 k. 
0 2 indique une commutation de bloc. 


175 ‘ ajouter instructions 10 a 170 du PEOS precedent 
180 ‘-------- RECHERCHE AVEC BANKFIND 
190 :BRANKOPEN ,50 

200 ‘ 


210 INPUT "QUEL Nom (enter FOUR FIN) ":;:B# 
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220 IF LEN(EB#$)=0 THEN END 


230 RZ=0 

240 :RANKFIND ,8R7,R#,0,100 " entre 0 et 100 
250 IF R4€0 THEN PRINT "N'EXISTE PAS",R4:G0T0 210 
260 N=R% 


270 B$=SPACES$ (30) 
280 !BANKREAD ,ER%,B#,N 
290 PRINT B$,N 

300 GOTO 210 


QUEL Nom (enter POUR FIN) ? MART 
MARTIN Daniel 3335-44-54 

QUEL Nom (enter POUR FIN) ? DUF 
DUPONT Jean 044-29-67 

QUEL Nom (enter FOUR FIN) ? 


SAUVEGARDE D'ÉCRAN 


La mémoire supplémentaire de 64 k peut être utilisée pour sauvegarder rapidement la 
mémoire écran de 16 k (1/2 seconde). Ainsi, quatre écrans différents peuvent être 
sauvegardés et restitués plus rapidement que s'ils avaient été sauvegardés sur disque. 


Avant d'utiliser le bloc mémoire de 64 k, pensez à faire RUN “BANKMAN”. 


| SCREENCOPY écran ou bloc dest,écran ou bloc source 


L'écran est référencé par le numéro 1. Les quatre blocs mémoire de sauvegarde sont 
repérés par les numéros 2, 3, 4, 5. Essayez en mode direct : 


RUN "HANEMAN" 


FRINT “ECRAN NUMEROÏ" 


iSCREENCOFY ,2,1 " sauvegarde ecran dans bloc 2 
CLS ‘ effacement ecran 
iSCREENCOPY ,1,2 © restitution bloc 2 dans ecran 


Ci-dessous, les commandes sont incluses comme instructions dans un programme. 


10 essai SCREENCOFY 
20 ‘ faire RUN "HANEMAN" avant 


406 MODE 2 
90 FOR i=t T0 20 
6G PRINT "ECRAN NUMERO 1" 


70 NEXT à 

BG :SCREENCOFY ,2,1 " sauvegarde ecran dans bloc? 
90 FOR tp=1i TO 1GO0OG:NEXT tp 

1006 CLS 


110 FOR tp=1 TO 1000:NEXT tp 
120 ISCREENCOFY ,1,2 © bloc? vers ecran 
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ISCREENCOPY ,zone,écran ou bloc dest,écran ou bloc source 


Le paramètre “zone”, compris entre 0 et 63 peut être ajouté. Dans ce cas, seule la 
zone de 256 octets spécifiée est sauvegardée. 


Ci-dessous, nous utilisons une boucle pour sauvegarder les 64 zones de 256 octets 
de l'écran : 


10 FOR 2=0 TO 63 
20 :SCREENCOPY 2,5,1 
30 NEXT Z 


Le programme ci-dessous dessine un cercle plein qui est sauvegardé dans le bloc 5. 
Un second cercle plein est sauvegardé dans le bloc 4. Les deux cercles sont ensuite 
affichés alternativement. 


10 ‘ essai screencopy 

20 ‘ faire run "bankman" avant 

30 

40 MODE Î:INE O,1:INE 1,20 

90 XC=100:YC=300:R=30:CE=1: GOSUR 170 ‘ er cercle 

60 ISCREENCOPY ,5,1 ‘ sauvegarde dans 5 
70 CLS 

BQ XC=400:VYC=100:R=30:CE=1:GOSUR 170 ‘ 2eme cercle 

90 ISCREENCOPY ,4,i ‘ sauvegarde dans 4 
LOG, “és rsss-s-2- affichage alterne 


110 FOR TF=1 TO 1000:NEXT TF 
120 :SCREENCOPY ,1,5 

130 FOR TP=1 TO 1000:NEXT TF 
140 :SCREENCOPY ,1,4 

150 GOTO 110 

160 ‘2 cercle 
170 R2=R4R 

180 FOR DX=-R TOR 

190 DY-=SOR(R?-(DX#DX)) 

200  PLOT XC+DX,YC+DY:DRAW XC+DX,YC-DY,CE 
210 NEXT DX 

220 RETURN 


ISCREENSW AP ,zone,écran ou bloc,écran ou bloc 
Permet d'échanger l'écran et un bloc de 16 k. Essayez en mode direct : 


PRINT "ECRAN NUMEROÏ" 
: SCREENCOPY ,2,1 


CLS 
PRINT "ECRAN NUMERO 2" 


ISCREENSUAFP ,1, 
ISCREENSUAP ,1, 


2 
£ 
na 
£ 
£ 
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COMMANDES ACCESSIBLES 
SOUS CP/M PLUS 


= DIR m TYPE sm SET # LANGUAGE 
# DISCKIT3 = PIP # SETDEF m DATE 

m ERA # SETKEYS = SHOW = SUBMIT 

# RENAME # SETLST m PALETTE # AMSDOS 


Pour accéder à CP/M Plus, vous devez placer la disquette CP/M Plus dans le lecteur 
de disquette. Ensuite, vous frappez “ICPM”. Le fichier “. EMS” est alors chargé en 
mémoire. S'il existe un fichier “PROFILE.SUB”, les commandes de ce fichier sont 
exécutées automatiquement. 


Un type est attribué à la plupart des fichiers. Ceci permet de les regrouper par famille. 
Les types les plus courants sont : 


.BAS BASIC 

.BIN BINAIRE 

.BAK SAUVEGARDE 
.COM COMMANDES 


Pour référencer une famille de fichiers, il suffit de spécifier “+” à la place du nom. “?” 
peut remplacer une lettre indéterminée. 


Les commandes DIR,ERA,REN,TYPE sont exécutables sans la disquette CP/M. Les 
autres commandes doivent être présentes sur disque lorsqu'elles sont appelées. Vous 
pouvez recopier certaines commandes de la disquette CP/M sur votre disquette de 
programmes (avec FILECOPY CPM 2.2). 


L'exécution d'une commande est annulée en frappant CTRL/C. 


DIR 





Affiche la liste des fichiers d'une disquette. 


DIR affiche la liste de tous les fichiers de la disquette du lecteur A: 
DIR +.BA5 affiche la liste des fichiers du type “.BAS” 
DIRSYS affiche la liste des fichiers systèmes 
DIR CFULL] affiche la taille des fichiers 
Name Bytes Recs Attributes Name Bytes Recs Attributes 
AMSDOS COM tk 8 Dir RW BANKMAN BAS 1k 7 Dir RW 
EANKMAN  BIN 2k 12 Dir RW CIOCPM3 EMS 25k 200 Dir RW 


DATE COM 3k 23 Dir RH DEVICE COM 8k 568 Dir RH 
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DISCKIT3 





Cette commande permet de formater, de copier ou de vérifier une disquette (pour une 
copie d'un seul fichier, cf. FILECOPY CP/M 2.2). 


Le formatage ayant déjà été traité dans la partie initiation, utilisons cette commande 
pour copier une disquette sur une autre (vierge ou non). Placez la disquette CP/M Plus 
dans le lecteur et frappez “DISCKIT3” : 

A>DISCKIT3 


Un premier menu apparaît. Placez la disquette source à copier dans le lecteur. 





O Appuyez sur la touche “f7” qui vous permet de choisir le mode “copy”. 
0 Le message suivant apparaît : 


Y Copy 


o Appuyez sur “Y” (Y=yes) pour confirmer. 

0 Les quinze premières pistes de la disquette source sont alors lues en mémoire 
centrale. 

o Le message “INSERT DISC TO WRITE” est envoyé. Placez alors la disquette “des- 
tination” dans le lecteur. Le système transfère les quinze premières pistes. 

co Le programme vous demande de placer à nouveau la disquette source dans le 
lecteur pour lire les quinze pistes suivantes de la disquette source (INSERT DISC 
TO READ), etc. 

0 Lorsque la copie est terminée, le système envoie le message. 


COPY COMPLETED 


REMOVE DISC 
PRESS ANY KEY 


Enlevez la disquette et appuyez sur une touche quelconque. 


Si vous désirez effectuer une autre copie, appuyez sur “Y”, sinon appuyez sur une 
touche quelconque pour revenir au menu et appuyez sur la touche “f0” pour terminer. 


ERA nom fichier 

Efface un fichier ou un groupe de fichiers. 

ERA XX.BAS efface le fichier XX.BAS 

ERA *.BAK efface tous les fichiers du type .BAK 


ERA #.* efface tous les fichiers 
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RENAME nouveau nom=ancien nom 
Change le nom d'un fichier. 
RENAME FROFILE.SUR=PROFILE.ENG 


Le fichier PROFILE.ENG devient PROFILE.SUB. 


TYPE nom fichier 
Affiche à l'écran le fichier spécifié. 


TYFE KEYS.CCP 


PIP nom fichier destination,nom fichier source 


Copie un ou plusieurs fichiers (si vous n'avez qu'un seul lecteur, PIP ne permet pas le 
transfert d’une disquette sur une autre). 


FIF XX=KEYS.CCF copie le fichier KEYS.CCF 
sous le nom de XX. 


Les périphériques sont considérés comme des fichiers. Par exemple : 
FIP LST:=KEYS,CCF 


édite sur imprimante le contenu du fichier KEYS.CCP. 


Les noms des périphériques sont : 


LST: imprimante 

CON: clavier et écran 

AUX: entrée et sortie auxiliaires 

PRN: imprimantes avec options (tabulation, saut de page). 


Pour entrer des commandes dans un fichier, vous définissez le clavier comme fichier 
source avec “CON:”. Après avoir frappé la commande PIP, vous frappez les commandes 
à placer dans le fichier. 


Lorsque vous appuyez sur la touche RETURN à la fin de la commande, il n'y a pas de 
saut de ligne mais seulement un retour en début de ligne. Appuyez sur CONTROL 
pour obtenir un saut de ligne. 


CONTROL/Z vous permet de définir la fin du texte. 
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>PIP PROFILE.SUB=CON: 
SETKEYS KEYS.CCP (puis RETURN) 


CTRL/J (pour saut de ligne) 
DIR 

CTRL/J 

CTRL/Z {fin de fichier) 


PIP peut être utilisé d'une autre façon. Vous frappez PIP puis RETURN. Le système 
envoie un “+”. Vous frappez alors le nom du fichier destination et du fichier source. 


>PIP 


#*XX=KEYS.CCP (puis RETURN) 
CONTROL/C 


SETKEYS nom fichier 


Permet de redéfinir certaines touches du clavier. Remplissez avec PIP (ou en BASIC) 
un fichier KEYS.ESSAI avec : 


E128"DIR TM” 
et faites SETKEYS KEYS.ESSAI 


A chaque fois que vous appuyez sur la touche de fonction “f0” (numéro 128), la 
commande “DIR” est exécutée. 


La disquette CP/M Plus contient un fichier KEYS.CCP. 


pe] 


TYPE KEYS,CCP 
N SC "$'#1F'°" CCF cursor up 


2 


1 NS "°F" cursor right 
Î (É n«A # 9 F Ca!) 

2 NS C "°'#1E'" cursor down 
8 NS "*A" cursor left 
8 C nt # 9 E ° 

9 NS C "*W" copy 

18 NS "*G" cir 

16: €. TK" 

18 C "*E" enter 

68 NS "27" esc 

ë 6 C CPAS E " 


79 C "*X" del 

E #9C "SR" ctrl enter 
E hR9E LL SF°p" 

E # 9 F HA F #“ B # E " 


Si vous avez exécuté la commande SETKEYS KEYS.CCP, les touches ont les fonc- 
tions suivantes : 


CONTROL/A ou €- curseur à gauche 
CONTROL/ER ou CONTROL/<- curseur en début de ligne 
CONTROL/C ou CONTROL/ESC arrêt exécution 


CONTROL/E ou CONTRL/RETURN retour en début de ligne 
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CONTROL/F ou -* curseur à droite 
CONTROL/G ou CLR supprime le caractère sous le curseur 
CONTROL/H ou DEL supprime le caractère à gauche du curseur 
CONTROL/I ou TAR curseur à la tabulation suivante 
CONTROL/J valide la ligne frappée 
CONTROL/K ou CONTROL/CLR supprime la fin de la ligne 
CONTROL/M ou RETURN valide la ligne frappée 
CONTROL /P copie sur imprimante et annulation 
(en bascule) 
CONTROL/ Reprise de l'affichage 
(suspendu par CTRL/S) 
CONTROL/R ou CONTROL/ENTER refrappe la commande 
CONTROL/S ou ESC suspend l'affichage 
CONTRGL/W ou COPY affiche la dernière commande frappée 
CONTROL/X ou CONTROL/DEL supprime les caractères du début de ligne 
jusqu'au curseur 
CONTROL/7 fin de texte. 
SETLST nom fichier 


Permet d'initialiser l'imprimante en lui envoyant des codes. Le fichier spécifié doit 
contenir : 


T ‘code caractère’ 
ou T caractère 
ou f nom de code (FF, ESC....). 


Par exemple, sur EPSON, pour obtenir des caractères condensés, il faut envoyer à 


l'imprimante le caractère de code 15 (7 ‘15’). Si le fichier contenant le caractère 
s'appelle “CONDENSE”, frappez la commande : SETLST CONDENSE. 


SET nom fichier 





Change l’attribut des fichiers. 


GET +.COM [RO] Les fichiers .COM ne peuvent être modifiés ou détruits 
(Read Only) 

SET +.COM CRU] Les fichiers peuvent être modifiés ou détruits (Read Write) 

SET +*.COM [SYS] Les fichiers .COM n'apparaissent plus qu'avec DIRSYS. 

SET +.COM [DIR] Les fichiers .COM apparaissent avec la commande DIR. 


SETDEF [PAGE] ou [NOPAGE] 


Le défilement à l'écran se fait par page ou en continu. 
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SHOW 

Affiche les caractéristiques de la disquette. 
SHOW CDRIVE] 
SHOW CLABEL] 


SHOW CUSER] 
SHOW [DIR] 


A>SHOW CDRIVE] 


A: 


Drive Characteristics 


1,368: 128 Eyte Record Capacity 
171: Kilobyte Drive Capacity 
64: 32 Byte Directory Entries 
b4: Checked Directory Entries 
128: Records / Directory Entry 
8: Records / Block 


36: Sectors / Track 
2: Reserved Tracks 
912: Bytes / Physical Record 


hot 


PALETTE fond.écriture 
Modifie la couleur d'écriture et de fond (0 à 63). 
PALETTE 50,1 


LANGUAGE jeu caractère 


Définit le jeu de caractères (AMERICAIN, FRANÇAIS, ANGLAIS....). LANGUAGE 1 
définit le jeu de caractères FRANÇAIS ; le e accent s'obtient avec “{“ et ”}”. 


LANGUAGE 1 ‘FRANCAIS 
LANGUAGE 3 ANGLAIS 


DATE SET 
DATE 


DATE SET permet de définir le jour et l'heure. 
DATE affiche la date. 


SUBMIT nom fichier 
Exécute les commandes définies dans un fichier. 


SUBMIT PROFILE.ENG 


AMSDOS 


Provoque le retour à BASIC. 
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CRÉATION D'UN FICHIER PROFILE.SUB 


Lorsque CP/M Plus est active, les commandes du fichier PROFILE.SUB (s'il existe) 
sont exécutées. Le fichier PROFILE.SUB peut être créé en BASIC ou avec PIP ou bien 


encore avec un éditeur. 


CP/M 2.2 


Une disquette CP/M 2.2 est livrée avec le CPC 6128 (cf. chapitre “Le CPC 664”). 


Cette disquette contient notamment la commande “FILECOPY” qui permet de recopier 
un fichier d'une disquette sur une autre avec un seul lecteur. 


La commande “DISCKIT2” est l'équivalente de “DISCKIT3”. Elle permet de formater 
et de copier une disquette sur une autre. 


La commande “CLOAD” permet de recopier un fichier de données (ASCII) provenant 
d'une cassette. On pourra également utiliser le programme ci-dessous pour effectuer 
le transfert. 


Ar Need TRANSFERT CASSETTE ---> DISQUE 
20 INPUT "Nom fichier ":;NF$ 

30 !TAPE.IN 

40 DPENIN "" 

50 OPENOUT NF# 

60 

70 IF EOF=-1 THEN CLOSEOUT:CLOSEIN:END 

80 LINE INPUT #9,ligf 

90 PRINT #9,ligf 

100 G60TO 70 


Sur CPC 664, la disquette CP/M 2.2 est fournie avec FORMAT et DISCCOPY. 
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INSTRUCTIONS BASIC AMSTRAD 


CPC 6128 et 664 

= PEN = MOVER = CUSOR 

= PLOT = FILL = COPYCHR$ 

= PLOTR = FRAME = DERR 

= DRAW = MASK = ON BREAK CONT 
= DRAWR = GRAPHICS PAPER = DEC$ 

m MOVE = GRAPHICS PEN 


Certaines instructions du BASIC CPC 464 ont été améliorées : PEN, PLOT, PLOTR, 
DRAW, DRAWR, MOVE, MOVER. 


Des instructions ont été ajoutées : FILL, FRAME, MASK, GRAPHICS PEN, GRAPHICS 
PAPER, CURSOR, COPYCHRS, DERR, ON BREAK CONT, DECS$. 


PEN #fenêtre,stylo,mode 


Le paramètre “mode” a été ajouté à l'instruction PEN. Si “mode” est égal à 1, la 
fonction PAPER est inhibée. 


Ci-dessous, le message “AMSTRAD” est affiché sur la couleur de fond spécifiée par 
PAPER si “T” est égal à 0. En revanche, si “T” est égal à 1, la couleur de fond ne 
change pas. 


LOMME SRE MODE TRANSPARENT 

20 MODE 1 

30 INK O,1:INE 1,24:INÉ 2,20:INKE 5,6 
40 INPUT "O0 OÙ 1 "35T 


50 PAPER 2 

&ü PEN 1,7 

70 FRINT "AMSTRAD 684" 
BQ FAPFER 3 

90 FEN 1,7 

199 FRINT "AMSTRAD 664" 
110 FAPFER 0 


PLOT X,Y,stylo,opération 
PLOTR DX,DY ,stylo,opération 
DRAW X,Y,stylo,opération 
DRAWR DX,DY,stylo,opération 


Le paramètre “opération” a été ajouté. Une opération XOR,AND ou OR est effectuée 
avant le tracé. 
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: nul 

: XOR (OÙ exclusif) 
: AND (ET) 

: OR (OU) 


@ D — © 


Par exemple, si XOR (OU exclusif) est spécifié, l’ancien tracé (s'il existait) disparaît. La 
ligne 40 du programme ci-dessous trace une droite. La ligne 60 trace la même droite 
avec une opération XOR. Par conséquent, le tracé disparaît. 


10 *----- OR, XOR,AND 
20 MODE 1 

30 INK O,1:INK 1,24 

40 PLOT 100,100,1:DRAW 200,200,1 
50 FOR TP=1 TO 1000:NEXT TP 

60 PLOT 100,100:DRAW 200,200 ,1,1 
70 GOTO 50 


MOVE X, Y,stylo,opération 
MOVER DX,DY,stylo,opération 


Les paramètres “stylo” et “opération” ont été ajoutés aux instructions “MOVE” et 
“MOVER". 


FILL stylo 


Remplit une figure avec la couleur du stylo spécifiée. Le curseur doit être positionné à 
l'intérieur de la figure avec MOVE ou MOVER. Le “stylo” spécifié dans MOVE doit être 
celui qui a servi au tracé de la figure. En revanche, le stylo spécifié dans FILL peut être 
différent. 


10 f=-m--sess FILL 
20 MODE 1! 
30 CEz=i ‘ Couleur ecriture 


40 INK 0,26:INE 1,0:INK 2,20 
50 PLOT 100,100,CE 
60 DRAW 200,100,CE 
70 DRAW 200,200,CE 
80 DRAW 100,100,CE 


90 ‘----- REMPLISSAGE TRIANGLE 

100 ‘ 

110 MOVE 160,120,CE ‘ Positionnement 
120 C=i " Stylo remplissage 
130 FILL C 

140 


150 ‘ La couleur de remplissage peut etre differente de la couleur 
du contour 
160 ‘ ex:C=2 


180 ‘Essayer en ajoutant:125 ink c,1,24 
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MOVE 160,120 


Le programme ci-dessous dessine un cercle et remplit la moitié inférieure. 


10 ===-=-- CERCLE 

20 MODE 1 

30 INK 0,26:INK 1,0:INK 2,20 
40 XC=200:YC=200 " CENTRE 
50 R=60 ‘ RAYON 
ED ‘----- CERCLE 


70 PLOT XC+R, VC 

80 FOR A=0 TO 2#PI+0.2 STEP 0.2 
90  X=XC+R*COS (A) 

100 Y=YC+R#SIN(A) 

110 DRAW X,Y,1 

120 NEXT À 


130 ‘------- DIAMETRE 
140 PLOT XC-R,YC:DRAUR R+2,0,1 
90: rsre-ses REMPLISSAGE DEMI CERCLE 


160 MOVER -5,-2:FILL 2 


Ci-dessous, nous représentons un demi-cercle plein en traçant un cercle “invisible” 


la couleur d'écriture du stylo 2 est la même que celle du papier. 


Ensuite, nous remplissons la moitié supérieure du cercle. 


10 ‘------- DEMI CERCLE PLEIN 
20 MODE 1 

30 INK O,1:INK 1,24:INK 2,1 

40 XC=200:YC=200 

50 R=40 

bO ‘------- CERCLE INVISIBLE 

70 PLOT XC+R,YC 

80 FOR a=0 TO 2*PI+0,2 STEP 0.2 
90 X=XC+R+CDS (A) 

100 Y=YC+R4SIN(A) 

110 DRAW X,Y,2 


120 NEXT à 

130 *-------- DIAMETRE 

140 PLOT XC-R,YC:DRAWR R#2,0 
150 ‘-------- REMPLISSAGE 


16Q MOVER -5,+2:FILL ! 


Le programme “dessinateur” de la page 129 peut être amélioré en lui ajoutant l'ins- 


truction 355. 


En positionnant le curseur à l'intérieur d’une figure et en appuyant sur “P”, vous la 


remplissez. 
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fesses AJOUT PROGRAMME DESSINATEUR P 129 (CPC664) 
5 IF Cét="P" THEN MOVE X,Y,CE:FILL CE 

IF C$f="56" THEN SAVE "DES",B,8C000,84000 

IF C$="L" THEN LOAD "DES" 


LA Li LA 
in en en 
SJ cn 


Attention ! Le curseur doit avoir la couleur de la figure. 


Pour mélanger texte et graphique, ajouter les lignes 270 et 275. En frappant “#”, vous 
passez alternativement en mode texte et en mode graphique. 


274 IF C$="#" THEN TT=ARS(TT-1):G0T0 150 
275 IF TT=1 THEN TAG:PLOT X,Y,1:PRINT C#;:X=X+16:TAGOFF:GOTO 150 


Me PR a EE A 





Et CIC UE 
_—. Fais 


re 
F. M 


FRAME 


Lorsqu'un caractère est affiché avec TAG, les “points” du caractère ne sont pas af- 
fichés simultanément. FRAME permet de synchroniser l'affichage des points. 


30 INK O0,1:INK 1,24 
40 GRAPHICS PAPER 0 


930 TAG 
60 FOR X=0 T0 500 STEP 4 
70 FRAME ‘ SYNCHRONISE 


80 MOVE X,200,1 
90 PRINT CHR+(32);CHR#(143); 
100 NEXT X 


Essayez le programme ci-dessus sans FRAME. 


MASK masque,premier point 


Permet de tracer des pointillés suivant le “masque” spécifié. Si “masque” est égal à 
“11110000”, 4 points sur 8 seulement sont affichés. 
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19 
20 
30 
40 
90 
6û 
70 
Bo 
90 
100 
110 


120 


INK 0,26:INK 1,0 
GRAPHICS PAPER 0 Initialisation 


MASK &X11110000,1 
MOVE 100,100,1:DRAW 200,109,1 
MASK &X11110000,0 
MOVE 100,120,1:DRAW 200,120,1 


L'instruction 40 est necessaire 
si GPAPER à deja ete utilise 


Si “premier point” est égal à 1, il est affiché. Si “premier point” est égal à O, il n'est pas 


affiché. 


GRAPHICS PAPER papier 


Détermine la couleur du papier pour les graphiques ou le texte affichés avec TAG. Ci- 
dessous, les pointillés sont affichés sur fond bleu. 


10 
20 
T0 
40 
90 
6û 
70 
80 
90 


nm GRAPHICS PAPER 
MODE ! 

PAFER O:PEN ! 

INK 0,26:INK 1,0:INK 2,20 


MASK &X11100000 
GRAPHICS PAPER 2 
MOVE 100,100,1:DRAW 200,200,1 


100 TAG:PRINT "COUCOU"; 


GRAPHICS PEN stylo,mode 


Détermine le stylo par défaut pour les instructions graphiques. Si “mode” est égal à 1, 
l'effet de GRAPHICS PAPER est annulé. 


JO esssesssse GRAPHICS FEN 


20 


MODE ii 


30 PAPER O:PEN ! 


40 INK 0,1:INK 1,24:INK 2,20 
50 ‘ 

60 GRAPHICS PEN 2 

70 FLOT 100,100:DRAW 200,200 
80 ‘ 

90 LOCATE 10,10:PRINT "TEXTE" 


Le programme ci-dessous affiche “TEXTE” sur la couleur du papier 2. Essayez le 
programme avec 50 GRAPHICS PEN 1,1. 


16 
20 
30 
40 
0 
80 
7 
8û 
90 
100 


CURSOR mode 
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rene ers GRAFHICS FAFER ET PEN 
MODE 1 

INK O,1:INK 1,0:INK 2,20 

GRAPHICS PAPER 2 

GRAPHICS PEN 1 

MOVE 100,100 

TAG 

PRINT "TEXTE"; 


4 


ESSAYER AVEC:50 GRAPHICS PEN 1,1 


Lorsque vous utilisez INKEY$, le curseur n'apparaît que si vous avez programmé 
“CURSOR 1”. “CURSOR 0” fait disparaître le curseur. 


20 
30 
aÿ 
A) 
&û 
70 
89 


COPYCHRS (#fenêtre) 


Fournit le caractère à | 


Pa ——- CURSOR 

CLS 

LOCATE 10,10 CURSEUR EN 10,10 
CURSOR 1. CURSEUR AFFARENT 


C$=INKEY#:IF C$="" THEN 50 
IF ASC(C#)=13 THEN END 
PRINT Cf; 

GOTO 40 





‘écran sous le curseur. 


10 ‘--------- COPYCHRS 

20 CLS 

30 LOCATE 10,10:PRINT "ABCDE" 
406 ‘ 

50 LOCATE 10,10:KX#=COPYCHRE (#0) 
40 ‘ 


70 LOCATE 20,20:PRINT X# 


Le programme ci-dessous recopie sur imprimante le texte affiché à l'écran (en MODE 
2}: 


10 === COPIE ECRAN(TEXTE) 
20 FOR L=1 TO 24 

30 FOR C=1 TO 80 

40 LOCATE C,L 

30 CH=COPYCHR#E (#0) 

60 PRINT #8,C$f; 

70 NEXT C 

BO PRINT #8 

90 NEXT L 
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DERR 


Fournit les codes erreur pour le disque. 


10 


ON ERROR GOTO 50 


20 OFENIN "XX" 

30 END 

FO ESrSSSSE Analyse erreur 

50 PRINT "ERR="3;ERK;"erl=";ERL 

60 FRINT "DERR=":DERR 

70 IF DERR=148 THEN FRINT "FICHIER NON TROUVE":END 
ON BREAK CONT 


Empêche l'interruption de l'exécution d'un programme si l'opérateur appuie sur la touche 
ESC. Est annulé par ON BREAK STOP. 


19 ON BREAK CONT 

20 ‘ 

30 FOR I=1 TO 100 

40 PRINT "AFFUYER SUR ESC" 
90 NEXT I 


DEC$ (nombre,format) 


Fournit une chaîne de caractères avec le format spécifié. 


10 ‘-------- DEC# 

20 X=5 

310 X=67.8 

40 X$= DECHF(X,"###H.##") 
50 PRINT X# 

60 ‘ 


70 ‘CF PRINT USING 


67.80 


ADAPTATION DES PROGRAMMES P143,148,153 


Le mode “FIN” ne provoque pas l'arrêt du programme après la sauvegarde des tables 
afin de permettre d'effectuer plusieurs sauvegardes sur cassette. 
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Pour une sauvegarde sur disquette, vous pouvez faire : 


P143: 160 IF M$="FIN” THEN GOSUB 500:END 
P148: 190 IF M$="FIN” THEN GOSUB 790:END 
P153: 200 IF M$="FIN” THEN GOSUB 980:END 


Sur CPC 664, LINE INPUT envoie un point d'interrogation après le message (contrai- 
rement au CPC 464). 


LISTE DES ERREURS DISQUE 


142 : état du canal non valable 

143 : fin de fichier physique 

144 : nom de fichier incorrect 

145 : le fichier existe déjà 

146 : le fichier n'existe pas 

147 : le catalogue est plein 

148 : la disquette est pleine 

149 : la disquette a été changée avec des fichiers ouverts 
150 : le fichier peut seulement être lu 

154 : fin de fichier logique 


Lorsqu'une erreur disque se produit, la variable ERR prend la valeur 32. Pour la fin de 
fichier, nous avons obtenu sur 6128 ERR=24 et DERR=0O. 
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ANNEXE | 


CODES ASCII 


EU Te ep Etre DA AIS RO TE 


DOI MON œ4 PRO DD LA IL 9 TDLN =D LA LA md 

© AU EM RE LA LALD CD Le O0 00 PCT) ve ve LI I Cet LD 

DT tt EU OAI 

NÉ IOHOD ES fm xt me LR HO UN ON E ot 


PO ED Pi CHEN re Ga 20 RCD CU D PE LUC (OL ICO LD LD CUCD DL 
CLONES OM DATE LA LALD LD PS CO CO ETC) vd en CU EU C9 LI 
k < De UT RIRE 
RÉGLVATIZEN 
XCD À + FO ECOLES Met Di- 
CU RO LD NUCO "DL 
Ce QE CO CO PERCO D) O7 QE 9 DLA ed D PO Led re CN OP LP 0) ON) LA et De ICI LA 
QHAQMEN RE LDC ES Fe CD MIND A ed CU INA CD EL 
SH CUENH Te RUE AG RIEUU 
DR DL A OU TU DT Pan LE Locle D ELJC OÙ ON dx 
Ce LA LA LOT EC CO M 
TON SOUL HTC EU CLOUD LO NIORT 
EV eOREX OM LADA Es LA 
© ete er ed em CU COUT UNIQUE 
SOU UCS d'OLONU  O | 
COR NL CO ED Dee © Te Ron RE HAS Feb Et 


LODEL IN OUT CN DL ie CON LA of Pe 6 OILID 1 LS ON OIL Te PET LN 


DANS LCA SN 60 DOS) ve ee LT 9 EN LI 
CD ei LC PL er Le C0 om ef mo ae pm, te ee te OU CU CU AU ICI AU AS 


EE ef LA LA LD LOT 00 00 D D 
n REPN MT ENT LAX NX Oit 

Y UNAGMELD 0 
TOLUDTOS Aro OU NU M OUUAUS 


CD LP QC NO) LD UE) AQU UE CALAGE RD OO vd ee C9 8 LA 
69 UN D ECO 0 3 ve er er np ee EU CU CU AT ICUIQU I CU 
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TABLE DES NOTES 
Octave:-1 FREG 
DA 131 
D9 DIESE 123 
FE 147 
mi EEMDL 156 
MI 165 
FA 175 
FA DIESE 152 
SOL 126 
SOL DIESE 293 
LA 229 
SI BEMOL 233 
5 247 
Octave: à FRE 
CO 262 
CO DIES 238 
RE Z'a4 
MI BENMTL 311 
MI 33 
FA 343 
FA DIESE 3r9 
SOL 392 
SÛL CIESE 415 
LA 44m 
SI BEMIL 456 
SI 43 
Octave: 1 FRE 
CO 2€3 
DO DIESE 517 
RE Jr 
MI PBEMOL B2E 
MI 623 
FA 635 
FA DIESE F4 
SOL ra4 
SÛL DIESE #31 
LA 884 
SI FEMOL 93£ 
SI 358 


FERIODE Octave: 2 


326 
367 
831 


894 


anonniü 


© GT © Q Jr cn 


AUDI JU 


Un 


DO 
D9 DIESE 
RE 

MI BEMOL 
MI 

FH 

FA DIESE 
SÛL 

SÛL DIESE 
LA 


51 BEMOL 
SI 


PERIODE Octave: 3 


[a 
J 
W 


0 B = A Où CO 0 


FO MP) CO Co Co Co 
QT Gr Con 


CO 
DO DIESE 
RE 
MI BEMDL 
MI 


FA 
FA DIESE 
SÛL 
SOL DIESE 


LA 
SI BEMOL 


SI 


FERIODE Octave: 4 


233 


Mbps ps 
Fi Gi UN M 


-J £ © 


[ja] 

DO DIESE 
RE 

MI BEMOL 
MI 

FA 

FA DIESE 
SÛL 

SÜL DIESE 
LA 

SI EBEMDL 
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FRE 


1947 
1934 
1175 
1245 
1319 
1537 
1459 
1563 


RE 
où -JmM 
Non 


AO TS 


FREG 


2433 
2967 
2343 
2433 


2837 


Di Co Co Co 2 Fo PO 
0 = CN CO LD y 
CA Fo PQ Lo OM 
ro nNnEeE 


FREG 


4156 
4135 
4639 
4378 
S274 
5588 
5329 
6272 


6643 


PERIODE 


119 
121 
156 
159 
95 
83 
54 
39 


PERIOCE 


34 
39 
27 
23 
£4 
2Z 
21 
29 
19 
15 
1F 
15 
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MESSAGES D'ERREURS 


Si le message d'erreur ne suffit pas pour détecter d'où provient l'erreur, on pensera à 
visualiser les valeurs des variables en “mode direct”. Ceci aidera bien souvent à 


la retrouver. 


Des instructions STOP judicieusement placées permettront également de mieux suivre 
l'évolution des valeurs des variables. On pourra ainsi insérer momentanément des 
instructions de visualisation des valeurs des variables (PRINT “X=”;X par exemple). 


La trace (avec TRON), un peu trop riche en informations, ne sera utilisée que dans les 


cas particulièrement délicats. 


Pour obtenir le code erreur, on fera “PRINT ERR” en mode direct. 


Message 


ARRAY ALREADY DIMENSIONNED 


CANNOT CONTINUE 


Code 


10 





(tableau redimensionné) 

Un tableau est à nouveau dimen- 
sionné ou une dimension de tableau 
est déclarée pour un tableau non dé- 
claré explicitement mais créé par BA- 
SIC (avec une dimension 10) parce 
qu'il a déjà été référencé (par une ins- 
truction A(4)=X par exemple). 


(l'exécution ne peut se poursuivre) 

On a tenté de poursuivre l'exécution 

d'un programme qui : 

— a été stoppé à cause d’une erreur 

— a été modifié après une interrup- 
tion. 
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Message 


DATA EXHAUSTED 


DIVISION BY ZERO 
DIRECT COMMAND FOUND 


EOF MET 


FILE ALREADY OPEN 
FILE TYPE ERROR 


INVALID DIRECT COMMAND 


IMPROPER ARGUMENT 


LINE DOES NOT EXIST 


LINE TOO LONG 


NEXT MISSING 





Code 


11 
21 


24 


27 
25 


12 


23 


26 





(DATAs épuisés) 

Un READ est exécuté alors qu'il n'y a 

plus de DATA à lire. 

— On a oublié des DATAs 

— On a oublié de programmer 
RESTORE. 


(division par zéro) 


(commande directe) 

Une commande directe sans numéro 
de ligne est trouvée lors d'un charge- 
ment. 


(fin de fichier rencontré) 
Prévoir un test de fin de fichier avec 
“EOF” avant INPUT +#9,. 


(fichier déjà ouvert) 


(mauvais type de fichier) 
On tente d'ouvrir un fichier program- 
me avec OPENIN. 


(illégal en mode direct) 

L'instruction frappée n’est pas validée 
en mode direct ; elle ne peut être exé- 
cutée que précédée d’un numéro de 
ligne. 


(argument invalide) 

Un paramètre hors du domaine nor- 

mal à une fonction arithmétique ou à 

une fonction chaîne. 

EX. : — argument négatif pour SQR 

— longueur spécifiée dans 

LEFTS$, MID$, RIGHTS non 
compris entre 0 et 255. 


(numéro de ligne indéfini) 
Une instruction référence une ligne qui 
n'existe pas. 


(ligne trop longue) 
Une ligne de programme dépasse 255 
caractères. 


(FOR sans NEXT) 
Une instruction n'a pas de NEXT as- 
socié. 


Message 


MEMORY FULL 


OPERAND MISSING 


OVERFLOW 


RESUME MISSING 


SUBSCRIPT OUT OF RANGE 


SYNTAX ERROR 


TYPE MISMATCH 


UNEXPECTED NEXT 


UNEXPECTED RESUME 


Code 


22 


13 


20 








MESSAGES D'ERREUR | 201 


(plus de mémoire centrale) 

Il n'y a plus assez de place en mé- 

moire centrale. 

— On doit supprimer une partie du 
programme ou les tableaux. 

— La structure des boucles est trop 
compliquée. 


(opérande manquant) 
Il manque un opérande dans une ex- 
pression. 


(dépassement de capacité) 

On a tenté de donner à une variable 
entière une valeur non comprise entre 
—32768 et +32767. 


(pas d'instruction RESUME) 

Une instruction END a été rencontrée 
dans un programme de traitement 
d'erreur. 


(référence en dehors du domaine) 

Un tableau est référencé en dehors de 
ses dimensions. Souvent, pour un ta- 
bleau non déclaré qui a été dimen- 
sionné à 10 par BASIC parce que 
référencé (par une instruction A(4)=X 
par exemple). 


(erreur de syntaxe) 

La ligne contient une erreur de syn- 
taxe : 

— parenthèses non appairées 

— ponctuation incorrecte 

— instruction n'existant pas 

— etc. 


(désaccord entre numérique et chaîne) 
Une valeur numérique est affectée à 
une chaîne ou l'inverse. 


(NEXT sans FOR) 

Une variable dans un NEXT ne cor- 

respond à aucun FOR. 

Ex. : La ligne FOR correspondante a 
été effacée sans le NEXT asso- 
cié. 


(RESUME sans ON ERROR) 
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UNEXPECTED RETURN 


UNKNOW COMMAND 
UNKNOW USER FONCTION 


WEND MISSING 





Code 


28 
18 


29 


(RETURN sans GOSUB) 

— On est “entré” dans un sous-pro- 
gramme par GOTO (au lieu de GO- 
SUB). 

— On est “entré” dans un sous-pro- 
gramme par erreur parce que l’on a 
oublié STOP ou END à la fin de 
l'exécution de son programme (de- 
vant un sous-programme). 


(commande inconnue) 

(fonction utilisateur indéfinie) 

Une fonction FN est appelée avant 
d'être définie par DEF FN. 


(WEND manquant) 
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DISC AN: se.” 175 LINE INFUT..... 35 
DISC. OUT... ... ,175 LINE INFPUTH#A 122 
DISCCOPY. ...... 1Ei reports are 17 
EANEF IND. 175 DISCHITS .168 OA en ee 
EANKOFEN. 175 DISCKITZ 150 LOAD.. 1 
| ; 92 LOCATE. 








ERA RME du 172 MEMORY .........86 
ERA rene 150 MEÉRGE.. 5:24. 17 
ERASE. Ed MID sx Rte 57 
RES 5 me dus FE MIN. 





TEINTE EN 
Feu T 1 
ME ZT 1 
LL: — C 

TU: 

ka E 


CLG. RS JE  HEXP sie ss 


FILECOPY. 161 
FILL ... .  1e7 


A | 
aRéE 
DC 
et D 
ue 
Et 
EF: 
ns 


21 
Fu 





Be +. it pe 
Ti 4 Pr Ti La Tite D 0 
ER 
e 
Mn 
En] 





ON GOTO. Rae 

ON 5@.......... LES 
OFENTH, : 
OFENOUT . HDI 121 


"4 


At be (ii : 


COPVCHRBe x m2 191 FORMAT 
COPYDTEC. LE se 16e 


21 
pr] 
Z 
m 
ja 


CRAPHES PAPER. 
GRÉFHICS FEN. 
HEX Bi dus LÉ 5 


NA LÙt mea Fi O0 Ta CL 
ED 


Ti bi ht + Lt 





D LE Ti he 
ht LI 


Fi BE 
Len 


HO 


Li La + Bi 


ss SU Gus à 2, 


DEFREAL sn nd z1 INPUT sus 32 
DÉFSIRE sauces a INPUTHS........ 121 
DÉLÉTE sr eux 16 INSTR ES vie 25 te Ei 


DERR........... 135 INT _ 
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ts 
= 
ou 
DR: 
de 
sa) 


FO ss nee 31 SE TREVS. sx 
FRINT 5 A ee aan ÊS DÉTÉS Pie sus 


sù Fi 


pers 


…J 


CO 


Ji D NN MO F5 © Fô CO Fi O0 O0 
CR] ii 
— à — 
ee CT tt 
T Æ 
mm mm 


— 
A 
[en 
T1 
me: 
Tr ar 
3 CO 7 OL tes fn 


boss 


fs 
À —| 
A1 
[en] 
£E 


RANDOMIZE |! 30 SHOW 
RELEASE . 113 SN a 
REMAIN. {15 SOUND. 


Let 
…— 
<, 

Q 1] 
m1 
res 


pu 
us 


RENAME 151 SPEED INÉ 
RENUM. 17 SPEED KEY. 
RESTORE. 48 SPEED URITE. 


her pt Lt A TE et 


F.ù 


RETURN 71 ie NAT E a? WAIT... 87 
RIGHTS. 57 STAT. 162 WHILE. ...... 4ë 
END z9 STRE Eg WIDTH 13 


ROUND.......... gE STRINGS. EZ WTDTH issues 7ü 
RUN 15 EUEMIT......... 154 WINGOU. ..... a 
SAVE. .......... & SYMEOI RE 103 WINDOU SUP... 1 


SAVE. 155 SYMEOL AFTER... 105 RAGE RIRE ES 





ee PAGE. 187 TRPE OUT 175 


CONSEILS 
DE LECTURE 


Pour approfondir vos connaîssances en BASIC Amstrad et mieux connaître 
le système des CPC 464, 664 et 6128, P.S.I. vous propose une palette 
d'ouvrages utiles. 


POUR MAITRISER LE BASIC AMSTRAD 


0 BASIC plus 80 routines sur Amstrad, par Michel Martin (Editions 
du P.S.I.) : 
Pour pousser votre Amstrad au maximum de ses capacités : 80 routines 
de simulation d'instructions qui n'existent pas en BASIC Amstrad. 


A paraître : 


0 BASIC Amstrad, CPC 464, 664 et 61 28 — 2. Programmes, par 
Jacques Boisgontier (Editions du P.S.I.) : 
Un excellent complément du « Méthodes pratiques » permettant de 
mettre en pratique vos connaissances en BASIC Amstrad. 


POUR PROGRAMMER EN ASSEMBLEUR ET MIEUX CONNAITRE LE 
SYSTEME DES CPC 464, 664 et 6128 


0 Assembleur de l’Amstrad - CPC 464 et 664, par Marcel Henrot 
(Editions du P.S.I.) : 
Une initiation complète à l’assembleur du Z80 : un bon complément du 
« Clefs pour Amstrad ». 


O0 Clefs pour Amstrad, par Daniel Martin (Editions du P.S.I.) : 
Mémento présentant synthétiquement le jeu d'instructions du Z80, les 
points d'entrée des routines système, les connecteurs et brochage, etc. 
Le livre de chevet du programmeur sur Amstrad. 


A paraître : 


0 Super générateur de caractères, par Jean-François Sehan (Edi- 
tions du P.S.I.) : 
L'art et la manière de créer et d'animer des sprites (ou lutins) sur Ams- 
trad, MSX, MOS5 et T07/70. 


0 Périphériques et gestion de fichiers sur Amstrad, CPC 464, 
664 et 6128, par Daniel-Jean David (Editions du P.S.I.) : 
Cet ouvrage s'adresse aux lecteurs, déjà initiés à l'Amstrad, souhaitant 
programmer tous les périphériques des CPC 464, 664 et 6128, et pro- 
grammer des applications utilisant des fichiers sur cassette ou disquette. 
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BASIC AMSTRAD 


Votre avis nous intéresse 


- Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le présent livre. 
- Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous adresserons votre demande 
à l'auteur qui ne manquera pas de vous répondre directement. 


- Ce livre vous donne-t-il toute satisfaction? 



































- Ÿ a-t-il un aspect du problème que vous auriez aimé voir abordé? 






































Comment avez-vous eu connaissance de ce livre? 


[] publicité [] cadeau 

[] catalogue [ librairie 

[] boutique micro [] exposition 
[] autres 


Avez-vous déjà acquis des livres PSI? 
lesquels? 











qu'en pensez-vous ? 











Nom Prénom 
Adresse 
Profession 
Centre d'intérêt 

















CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 





BASIC AMSTRAD 
CPC 464, 664 
ET 6128 


1. MÉTHODES PRATIQUES 











C: ouvrage s'adresse à vous qui, de plus en plus nombreux, 
avez déjà pratiqué le BASIC et qui souhaitez pousser votre 
Amstrad à son meilleur niveau de performance. 


Vs découvrirez, grâce à de nombreux programmes- 
exemples, toutes les instructions des CPC 464, 664 et 6128 au fur 
et à mesure de vos besoins, ainsi que les avantages spécifiques 
à votre ordinateur : jeu d'instructions très complet, gestion des 
interruptions en BASIC, sortie stéréo ou haut-parleur intégré, etc. 


L: deuxième partie comprenant des programmes de 
graphisme et de gestion fera ressortir la 
richesse de la palette de couleurs en 
haute résolution et la rapidité d'exécution 
de l'Amstrad. 
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